From c90d9e99757fc40ea3a8396116a6acf639729ef5 Mon Sep 17 00:00:00 2001 From: ranke Date: Tue, 11 Oct 2005 08:55:12 +0000 Subject: 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 --- R/drfit.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'R/drfit.R') 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) { -- cgit v1.2.1