[R] dev2bitmap: extra missing

[Ido M. Tamir]

Hi,
I don't know if I am the first one to report the problem:
in 2.8.0 dev2bitmap gained aa support, but "extra" is null
if neither taa nor naa is specified.

> dev2bitmap("plot.pdf",type="pdfwrite")
Error in paste(shQuote(gsexe), " -dNOPAUSE -dBATCH -q -sDEVICE=", type,  : 
  object "extra" not found
> dev2bitmap("plot.pdf",type="pdfwrite",taa=4)
> 

I guess a useful default for extra is missing:

   if (!is.na(taa))
        extra <- paste(" -dTextAlphaBits=", taa, sep = "")
    if (!is.na(gaa))
        extra <- paste(extra, " -dGraphicsAlphaBits=", gaa, sep = "")
    cmd <- paste(shQuote(gsexe), " -dNOPAUSE -dBATCH -q -sDEVICE=",
        type, " -r", res, "-dAutoRotatePages=/None", " -g", ceiling(res *
            width), "x", ceiling(res * height), extra, " -sOutputFile=",
        shQuote(file), " ", tmp, sep = "")

best wishes,
ido


> R.Version()
$platform
[1] "x86_64-redhat-linux-gnu"

$arch
[1] "x86_64"

$os
[1] "linux-gnu"

$system
[1] "x86_64, linux-gnu"

$status
[1] ""

$major
[1] "2"

$minor
[1] "8.0"

$year
[1] "2008"

$month
[1] "10"

$day
[1] "20"

$`svn rev`
[1] "46754"

$language
[1] "R"

$version.string
[1] "R version 2.8.0 (2008-10-20)"