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 --- DESCRIPTION | 2 +- R/drfit.R | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index e0ed35e..07ea94d 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,5 +1,5 @@ Package: drfit -Version: 0.04-44 +Version: 0.04-45 Date: 2005-10-11 Title: Dose-response data evaluation Author: Johannes Ranke 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