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

[<gg...@us...>]

Revision: 34
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=34&view=rev
Author:   ggorjan
Date:     2007-08-08 01:56:34 -0700 (Wed, 08 Aug 2007)

Log Message:
-----------
Using only history(*) in batch script since history(*,
history.doc) does not create separate (history.odc) log file.

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

Modified: trunk/R2WinBUGS/R/bugs.log.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.log.R	2007-08-03 14:47:08 UTC (rev 33)
+++ trunk/R2WinBUGS/R/bugs.log.R	2007-08-08 08:56:34 UTC (rev 34)
@@ -34,7 +34,7 @@
 
     DICEnd <- grep("history(", logfile, fixed=TRUE) - 1
     ## - 1 to remove
-    ## "history(+, ..."
+    ## "history(..."
 
     if(!length(DICEnd) || !length(DICStart) || (DICEnd < DICStart)){
         DICTable <- NA

Modified: trunk/R2WinBUGS/R/bugs.script.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.script.R	2007-08-03 14:47:08 UTC (rev 33)
+++ trunk/R2WinBUGS/R/bugs.script.R	2007-08-08 08:56:34 UTC (rev 34)
@@ -12,7 +12,6 @@
     model.file
   } else file.path(working.directory, model.file)
   data <- file.path(working.directory, "data.txt")
-  history <- file.path(working.directory, "history.odc")
   coda  <- file.path(working.directory, "coda")
   logfile <- file.path(working.directory, "log.odc")
   logfileTxt <- file.path(working.directory, "log.txt")
@@ -40,7 +39,7 @@
     "coda (*, '", native2win(coda, WINEPATH=WINEPATH), "')\n"),redo),
     "stats (*)\n",
     if(DIC) "dic.stats()\n",
-    "history (*, '", native2win(history, WINEPATH=WINEPATH), "')\n",
+    "history (*)\n",
     "save ('", native2win(logfile, WINEPATH=WINEPATH), "')\n",
     "save ('", native2win(logfileTxt, WINEPATH=WINEPATH), "')\n",
     file=script, sep="", append=FALSE)


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