Change the device for creation of png files to bitmap(), in order

to let people without the X11() device make pngs, too.



git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@43 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc

1 files changed, 4 insertions, 4 deletions

diff --git a/R/drfit.R b/R/drfit.R
index 9c99b1a..5bb73e2 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -318,8 +318,8 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
         } 
         if (png) {
             filename = paste(path,fileprefix,".png",sep="")
-            png(filename=filename,
-                width=500, height=500, pointsize=pointsize)
+            bitmap(file=filename,type="png256",res=72,
+                width=6, height=6, pointsize=pointsize)
             cat("Created File: ",filename,"\n")
         }
         if (!postscript && !png) {
@@ -355,8 +355,8 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
                     } 
                     if (png) {
                         filename = paste(path,fileprefix,sub(" ","_",i),".png",sep="")
-                        png(filename=filename,
-                            width=500, height=500, pointsize=pointsize)
+                        bitmap(file=filename,type="png256",res=72,
+                            width=6, height=6, pointsize=pointsize)
                         cat("Created File: ",filename,"\n")
                     }
                     if (!postscript && !png) {