Displaying 1 result from an estimated 1 matches for "robjlpr".
Did you mean:
robalrr
2012 Oct 08
2
device error pdf
...rent.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."...