[Bugs-r-devel] SF.net SVN: bugs-r:[169] trunk/R2OpenBUGS

[<snt...@us...>]

Revision: 169
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=169&view=rev
Author:   snthomas99
Date:     2010-09-02 16:44:16 +0000 (Thu, 02 Sep 2010)

Log Message:
-----------
added invisible to system call in bugs.run to display openbugs gui

Modified Paths:
--------------
    trunk/R2OpenBUGS/R/bugs.R
    trunk/R2OpenBUGS/R/bugs.run.R
    trunk/R2OpenBUGS/man/bugs.run.Rd

Modified: trunk/R2OpenBUGS/R/bugs.R
===================================================================
--- trunk/R2OpenBUGS/R/bugs.R	2010-09-01 01:42:02 UTC (rev 168)
+++ trunk/R2OpenBUGS/R/bugs.R	2010-09-02 16:44:16 UTC (rev 169)
@@ -140,7 +140,7 @@
               summary.only=summary.only, save.history=save.history, 
               bugs.data.file = bugs.data.file, 
               bugs.inits.files = bugs.inits.files, over.relax = over.relax)
-  bugs.run(n.burnin, OpenBUGS.pgm, WINE=WINE, useWINE=useWINE,
+  bugs.run(n.burnin, OpenBUGS.pgm, debug=debug, WINE=WINE, useWINE=useWINE,
            newWINE=newWINE, WINEPATH=WINEPATH)
   if(codaPkg)
     return(file.path(getwd(), paste("CODAchain", 1:n.chains, ".txt", sep="")))

Modified: trunk/R2OpenBUGS/R/bugs.run.R
===================================================================
--- trunk/R2OpenBUGS/R/bugs.run.R	2010-09-01 01:42:02 UTC (rev 168)
+++ trunk/R2OpenBUGS/R/bugs.run.R	2010-09-02 16:44:16 UTC (rev 169)
@@ -1,5 +1,5 @@
 "bugs.run" <-
-    function(n.burnin, OpenBUGS.pgm,
+    function(n.burnin, OpenBUGS.pgm, debug=FALSE,
              useWINE=FALSE, WINE=NULL,
              newWINE=TRUE, WINEPATH=NULL)
 {
@@ -31,7 +31,10 @@
   }else{
       bugsCall<-paste(OpenBUGS.pgm,"<","script.txt",">",file.path(getwd(),"log.txt"))
   }
-  temp <- system(bugsCall)
+  if((.Platform$OS.type == "windows" | useWINE==TRUE) & debug){
+    temp <- system(bugsCall,invisible=FALSE)
+  }else temp <- system(bugsCall)
+
   if(temp == -1)
     stop("Error in bugs.run().")
 

Modified: trunk/R2OpenBUGS/man/bugs.run.Rd
===================================================================
--- trunk/R2OpenBUGS/man/bugs.run.Rd	2010-09-01 01:42:02 UTC (rev 168)
+++ trunk/R2OpenBUGS/man/bugs.run.Rd	2010-09-02 16:44:16 UTC (rev 169)
@@ -7,13 +7,14 @@
   internal use}
 
 \usage{
-bugs.run(n.burnin, OpenBUGS.pgm, 
+bugs.run(n.burnin, OpenBUGS.pgm, debug=FALSE, 
          useWINE=FALSE, WINE=NULL,
          newWINE=TRUE, WINEPATH=NULL)
 }
 \arguments{
   \item{n.burnin}{length of burn in}
   \item{OpenBUGS.pgm}{Full path to the \pkg{OpenBUGS} executable or shell script}
+  \item{debug}{When debug=T, the OpenBUGS gui is displayed during execution.  there is no effect with linux execution}
   \item{useWINE}{as in \code{\link{bugs}} meta function}
   \item{WINE}{as in \code{\link{bugs}} meta function}
   \item{newWINE}{as in \code{\link{bugs}} meta function}


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