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.
|
