From 58db0771b52ee9278c3af9b91a7f00c7eb9a2952 Mon Sep 17 00:00:00 2001 From: ranke Date: Tue, 11 Oct 2005 15:08:27 +0000 Subject: Go back to the png device, since we get problems with "(" and ")" in the filenames with ghostscript. git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@45 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- R/drfit.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'R') diff --git a/R/drfit.R b/R/drfit.R index 5bb73e2..9c99b1a 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="") - bitmap(file=filename,type="png256",res=72, - width=6, height=6, pointsize=pointsize) + png(filename=filename, + width=500, height=500, 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="") - bitmap(file=filename,type="png256",res=72, - width=6, height=6, pointsize=pointsize) + png(filename=filename, + width=500, height=500, pointsize=pointsize) cat("Created File: ",filename,"\n") } if (!postscript && !png) { -- cgit v1.2.1