diff options
author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2007-11-23 16:19:08 +0000 |
---|---|---|
committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2007-11-23 16:19:08 +0000 |
commit | 1066c87b174f2b3df19e54adee1ee435021441c9 (patch) | |
tree | 26003c9a4a333ecdc99ef6773a6df96572f51c11 /R/drplot.R | |
parent | e6b9164327957c56de221889e396dcbab6fddd31 (diff) |
- Releasable version for CRAN
- Changed usage of cat() to message() because the latter does not interfere
with Sweave. Left cat() in checkexperiment.R and checksubstance.R
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@92 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
Diffstat (limited to 'R/drplot.R')
-rw-r--r-- | R/drplot.R | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -65,19 +65,19 @@ drplot <- function(drresults, data, filename = paste(path,fileprefix,".eps",sep="") postscript(file=filename, paper="special",width=7,height=7,horizontal=FALSE, pointsize=pointsize) - cat("Created File: ",filename,"\n") + message("Created File: ",filename,"\n") } if (pdf) { filename = paste(path,fileprefix,".pdf",sep="") pdf(file=filename, paper="special",width=7,height=7,horizontal=FALSE, pointsize=pointsize) - cat("Created File: ",filename,"\n") + message("Created File: ",filename,"\n") } if (png) { filename = paste(path,fileprefix,".png",sep="") png(filename=filename, width=500, height=500, pointsize=pointsize) - cat("Created File: ",filename,"\n") + message("Created File: ",filename,"\n") } plot(0,type="n", @@ -114,19 +114,19 @@ drplot <- function(drresults, data, filename = paste(path,fileprefix,sub(" ","_",i),".eps",sep="") postscript(file=filename, paper="special",width=7,height=7,horizontal=FALSE,pointsize=pointsize) - cat("Created File: ",filename,"\n") + message("Created File: ",filename,"\n") } if (pdf) { filename = paste(path,fileprefix,sub(" ","_",i),".pdf",sep="") pdf(file=filename, paper="special",width=7,height=7,horizontal=FALSE,pointsize=pointsize) - cat("Created File: ",filename,"\n") + message("Created File: ",filename,"\n") } if (png) { filename = paste(path,fileprefix,sub(" ","_",i),".png",sep="") png(filename=filename, width=500, height=500, pointsize=pointsize) - cat("Created File: ",filename,"\n") + message("Created File: ",filename,"\n") } plot(0,type="n", @@ -222,7 +222,7 @@ drplot <- function(drresults, data, } if (!overlay && (postscript || png || pdf)) dev.off() } else { - cat("No data for ",i,"\n") + message("No data for ",i,"\n") } } } |