Displaying 1 result from an estimated 1 matches for "imgnum".
Did you mean:
ignum
2011 Oct 27
1
minimizing device-dependent code in graphics scripts
...if (exists("imgtype")) {
if (is.null(imgtype)) return() else type <- imgtype
}
}
else {
t <- match(type, types, nomatch=0)
if(t > 0) type <- types[t] else stop("unknown file type")
}
if (exists("imgnum") imgnum <<- imgnum+1
else imgnum <<- 1
# TODO: Handle global imgnum in filename
if (missing(file)) {
file <- if(exists("imgname")) paste(imgname, '%03d', sep='')
else "Rplot%03d"
}
filename <- paste(file, ...