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

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

Revision: 82
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=82&view=rev
Author:   ligges
Date:     2008-01-18 09:00:00 -0800 (Fri, 18 Jan 2008)

Log Message:
-----------
- make scan() in openbugs()  quiet
- add note on option BRugsVerbose
- increase date for release

Modified Paths:
--------------
    trunk/R2WinBUGS/DESCRIPTION
    trunk/R2WinBUGS/R/openbugs.R
    trunk/R2WinBUGS/man/openbugs.Rd

Modified: trunk/R2WinBUGS/DESCRIPTION
===================================================================
--- trunk/R2WinBUGS/DESCRIPTION	2008-01-17 18:24:14 UTC (rev 81)
+++ trunk/R2WinBUGS/DESCRIPTION	2008-01-18 17:00:00 UTC (rev 82)
@@ -1,6 +1,6 @@
 Package: R2WinBUGS
 Title: Running WinBUGS and OpenBUGS from R / S-PLUS
-Date: 2008-01-08
+Date: 2008-01-18
 Version: 2.1-7
 Author: originally written by Andrew Gelman <ge...@st...>;
  changes and packaged by Sibylle Sturtz <st...@st...>

Modified: trunk/R2WinBUGS/R/openbugs.R
===================================================================
--- trunk/R2WinBUGS/R/openbugs.R	2008-01-17 18:24:14 UTC (rev 81)
+++ trunk/R2WinBUGS/R/openbugs.R	2008-01-18 17:00:00 UTC (rev 82)
@@ -7,7 +7,7 @@
   DIC = TRUE, bugs.directory = "c:/Program Files/OpenBUGS/",
   working.directory=NULL, digits = 5)
 {
-  if(!require(BRugs))
+  if(!require("BRugs"))
     stop("BRugs is required")
   ## switching from bugs() to BRugsFit() notation
   modelFile <- model.file
@@ -55,7 +55,7 @@
   ## set the adaptive phases
   adaptivelines <- scan(system.file("OpenBUGS", "Bugs", "Rsrc",
                                     "Registry.txt", package="BRugs"),
-                        what="character")
+                        what="character", quiet = TRUE)
   factories <- sub(".adaptivePhase", "",
                    adaptivelines[grep("adaptivePhase",adaptivelines)])
   sapply(factories, BRugs::modelSetAP, max(0, nBurnin-1))

Modified: trunk/R2WinBUGS/man/openbugs.Rd
===================================================================
--- trunk/R2WinBUGS/man/openbugs.Rd	2008-01-17 18:24:14 UTC (rev 81)
+++ trunk/R2WinBUGS/man/openbugs.Rd	2008-01-18 17:00:00 UTC (rev 82)
@@ -67,6 +67,11 @@
   and Uwe Ligges.
 }
 
+\note{By default, BRugs (and hence \code{openbugs()}) is quite verbose. 
+    This can be controlled for the whole BRugs package by by the option \sQuote{BRugsVerbose} (see \code{\link{options}})
+    which is set to \code{TRUE} by default.
+}
+
 \seealso{\code{\link{bugs}} and the \pkg{BRugs} package}
 
 \examples{


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