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

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

Revision: 91
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=91&view=rev
Author:   ligges
Date:     2008-10-11 19:31:56 +0000 (Sat, 11 Oct 2008)

Log Message:
-----------
make tempdir() group-readable (750) if wine is used

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

Modified: trunk/R2WinBUGS/R/bugs.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.R	2008-10-11 17:47:53 UTC (rev 90)
+++ trunk/R2WinBUGS/R/bugs.R	2008-10-11 19:31:56 UTC (rev 91)
@@ -44,10 +44,15 @@
   ## Move to working drirectory or temporary directory when NULL
   if(is.null(working.directory)) {
     working.directory <- tempdir()
+    if(useWINE){
+        ## Some tweaks for wine (particularly required for Mac OS)
+        Sys.chmod(working.directory, mode="750")
+        on.exit(Sys.chmod(working.directory, mode="700"))
+    }
   }
   savedWD <- getwd()
   setwd(working.directory)
-  on.exit(setwd(savedWD))
+  on.exit(setwd(savedWD), add = TRUE)
 
   ## model.file is not a file name but a model function
   if(is.function(model.file)){


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