From 1066c87b174f2b3df19e54adee1ee435021441c9 Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Fri, 23 Nov 2007 16:19:08 +0000
Subject: - 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
---
 R/drplot.R | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'R/drplot.R')

diff --git a/R/drplot.R b/R/drplot.R
index 08a92d1..507119c 100644
--- a/R/drplot.R
+++ b/R/drplot.R
@@ -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")
             }
         }
     }
-- 
cgit v1.2.1