Displaying 1 result from an estimated 1 matches for "rplotlpr".
2012 Oct 08
2
device error pdf
...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 {...