[rkward-cvs] SF.net SVN: rkward:[3714] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ public_graphics.R

[tfry at users.sourceforge.net]

Revision: 3714
          http://rkward.svn.sourceforge.net/rkward/?rev=3714&view=rev
Author:   tfry
Date:     2011-08-09 07:56:07 +0000 (Tue, 09 Aug 2011)

Log Message:
-----------
Fix tempfile usage

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2011-08-08 18:09:31 UTC (rev 3713)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2011-08-09 07:56:07 UTC (rev 3714)
@@ -59,7 +59,7 @@
 # Parameters are passed to postscript(), but typically this is simply used as
 #   dev.print(rk.print.preview)
 "rk.printer.device" <- function(...) {
-	tf <- tempfile (fileext=".ps")
+	tf <- paste (tempfile (), "ps", sep=".")	# NOTE: Up to R 2.12.x, tempfile() did not have "fileext" parameter
 	postscript (file = tf, ...)
 	.rk.variables$.rk.printer.devices[[as.character (dev.cur ())]] <- tf
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.