Displaying 1 result from an estimated 1 matches for "devcur".
Did you mean:
decir
2008 Jun 03
5
savePlot() no longer automatically adds an extension to the filename.
...tif",
"tiff", "ps", "eps", "pdf"),
device = dev.cur(),
restoreConsole = TRUE,
extension) #Added extension
{
type <- match.arg(type)
if(missing(extension))
extension <- type ##added
devlist <- dev.list()
devcur <- match(device, devlist, NA)
if (is.na(devcur))
stop("no such device")
devname <- names(devlist)[devcur]
if (devname != "windows")
stop("can only copy from 'windows' devices")
if (filename == "clipboard" &&...