[R] device error pdf

[Duncan Murdoch]

On 12-10-08 9:39 AM, Christian Hoffmann wrote:
> Hi,
>
> Iwrote 'pdfc' in analogy to 'lpr':
>
> pdfc <- function (file = "Rplot.pdf") {
>     current.device <- dev.cur()
>     dev.off(dev.copy(device = pdf, file = file, ...))
>     dev.set(current.device)
>     print(paste(file, "generated."))
>     }
>
> lpr <- function (object, file = "Rplotlpr.ps", ...)
> {
>       if (missing(object)) {
>           current.device <- dev.cur()
>           dev.off(dev.copy(device = postscript, file = file, ...))
>           dev.set(current.device)
>           system(paste("lpr", file))
>           print(paste(file, "printed."))
>       }
>       else {
>           if (missing(file))
>               file <- "Robjlpr.txt"
>           sink(file)
>           object <- as.character(substitute(object))
>           print(get(object))
>           sink()
>           system(paste("lpr", file))
>           print(paste(object, "printed."))
>       }
> }
>
> Now, while
>
>> lpr()
> [1] "Rplotlpr.ps printed."
>
> is working almost fine (the plot window of Quartz-2 is not sized correctly, what would you suggest, Ray Brownrig \email{ray at mcs.vuw.ac.nz} ?),
>
> with > pdfc()
>
> I get
>
> Error in dev.off(dev.copy(device = pdf, file = file, ...)) :
>     '...' used in an incorrect context

You can't use ... in a function unless you use it in the header of the 
function.


>
> I searched the Web, but found no hint how to avoid  this error. So the culprit could be

You shouldn't look for obscure meanings:  the error means just what it 
says.  You used ... in an incorrect context.  So you should examine the 
context in which you used it, and figure out why ... is incorrect there.

Duncan Murdoch

>
> device = pdf
>
> On the other hand  executing
>
>> pdf()
>
> generates the file
>
> Rplotlpr.ps
>
> but this very small and causes the Adobe Reader to say
>
> This file is damaged and cannot be opened.
>
>
> Thanks for help.
>
> Chirsitan HOffmann
>