Displaying 1 result from an estimated 1 matches for "findx11dev".
2007 Jan 31
3
possible bug: dev.copy / could not find any X11 fonts
...12
day 18
svn rev 40228
language R
version.string R version 2.4.1 (2006-12-18)
-------------- next part --------------
a <- 1:5
avc <- list(v=a,cons=a,saving=a)
findx11dev <- function(create=TRUE) {
devices <- dev.list()
x11dev <- which(names(devices)=="X11")
if (length(x11dev)==0) {
if (create) {
x11()
dev.cur()
} else {
NULL
}
} else {
devices[tail(x11dev,1)]
}
}
plotf <- function(avc,k,...) {
plo...