Displaying 1 result from an estimated 1 matches for "slidelist".
Did you mean:
sitelist
2006 Jun 01
1
Help with evaluation of expressions
...lis plots as well as regular
plots.
Here is the function.
plotSlide<-function(pltexpr){
expr<-as.expression(pltexpr)
numslide<-length(dir(pattern="wmf"))+1
fname<-paste("SG",numslide,".wmf",sep="")
dirlist<-dir(pattern="SlideList.txt")
if (length(dirlist)==1){
fs<-file("SlideList.txt",open="at")
write(paste(fname,"Graph",sep=","),file=fs)
close(fs)} else {
write(paste(fname,"Graph",sep=","),file="SlideList.txt")
}
# i...