[Bugs-r-devel] SF.net SVN: bugs-r: [69] trunk/R2WinBUGS/R/bugs.R

[<li...@us...>]

Revision: 69
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=69&view=rev
Author:   ligges
Date:     2007-09-18 07:09:25 -0700 (Tue, 18 Sep 2007)

Log Message:
-----------
model.file also under Linux: simplified, more efficient, more secure

Modified Paths:
--------------
    trunk/R2WinBUGS/R/bugs.R

Modified: trunk/R2WinBUGS/R/bugs.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.R	2007-09-18 13:23:04 UTC (rev 68)
+++ trunk/R2WinBUGS/R/bugs.R	2007-09-18 14:09:25 UTC (rev 69)
@@ -37,12 +37,13 @@
     on.exit(setwd(savedWD))
   }
   if(is.function(model.file)){
+      temp <- tempfile("model")
       temp <-
-        ifelse(is.R(),
-               paste(tempfile("model"), "txt", sep="."),
-               ifelse(.Platform$OS.type != "unix",
-                      gsub(".tmp$", ".txt", tempfile("model")),
-                      paste(tempfile("model"), "txt", sep=".")))
+        if(is.R() || .Platform$OS.type != "windows"){
+               paste(temp, "txt", sep=".")
+        } else {
+               gsub("\\.tmp$", ".txt", temp)
+        }
       write.model(model.file, con=temp)
       model.file <- gsub("\\\\", "/", temp)
       if(!is.R()) on.exit(file.remove(model.file), add=TRUE)


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