bugs-r-devel

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

[<woo...@us...>]

Revision: 18
          http://svn.sourceforge.net/bugs-r/?rev=18&view=rev
Author:   woodard_
Date:     2007-05-15 07:57:29 -0700 (Tue, 15 May 2007)

Log Message:
-----------
There are no namespaces in S-PLUS.  Changed the read.bugs function to avoid the syntax <pkg_name>::<fn_name> in S-PLUS.

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

Modified: trunk/R2WinBUGS/R/read.bugs.R
===================================================================
--- trunk/R2WinBUGS/R/read.bugs.R	2007-05-13 16:49:34 UTC (rev 17)
+++ trunk/R2WinBUGS/R/read.bugs.R	2007-05-15 14:57:29 UTC (rev 18)
@@ -1,7 +1,13 @@
 read.bugs <- function(codafiles, ...){
     if(!require(coda))
         stop("package 'coda' is required to use this function")
-    coda::mcmc.list(lapply(codafiles, coda::read.coda, 
-                     index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
-                     ...))
+    if (is.R()){
+      coda::mcmc.list(lapply(codafiles, coda::read.coda, 
+                      index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
+                      ...))
+    }else{
+      mcmc.list(lapply(codafiles, read.coda, 
+                       index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
+                       ...))
+    }
 }


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

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

[Uwe L. <li...@st...>]

Dawn, thank you and sorry.

I thought that
   library(pkgutils)
enables S-PLUS for "foo::bar" to find something called "bar" in ANY 
package (which is not guaranteed to be "foo") in the search path.

The problem is that R will now shout again now.

I'll work on another solution together with sanitizing some codetools 
hickups.

Uwe






woo...@us... wrote:
> Revision: 18
>           http://svn.sourceforge.net/bugs-r/?rev=18&view=rev
> Author:   woodard_
> Date:     2007-05-15 07:57:29 -0700 (Tue, 15 May 2007)
> 
> Log Message:
> -----------
> There are no namespaces in S-PLUS.  Changed the read.bugs function to avoid the syntax <pkg_name>::<fn_name> in S-PLUS.
> 
> Modified Paths:
> --------------
>     trunk/R2WinBUGS/R/read.bugs.R
> 
> Modified: trunk/R2WinBUGS/R/read.bugs.R
> ===================================================================
> --- trunk/R2WinBUGS/R/read.bugs.R	2007-05-13 16:49:34 UTC (rev 17)
> +++ trunk/R2WinBUGS/R/read.bugs.R	2007-05-15 14:57:29 UTC (rev 18)
> @@ -1,7 +1,13 @@
>  read.bugs <- function(codafiles, ...){
>      if(!require(coda))
>          stop("package 'coda' is required to use this function")
> -    coda::mcmc.list(lapply(codafiles, coda::read.coda, 
> -                     index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
> -                     ...))
> +    if (is.R()){
> +      coda::mcmc.list(lapply(codafiles, coda::read.coda, 
> +                      index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
> +                      ...))
> +    }else{
> +      mcmc.list(lapply(codafiles, read.coda, 
> +                       index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
> +                       ...))
> +    }
>  }
> 
> 
> This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Bugs-r-devel mailing list
> Bug...@li...
> https://lists.sourceforge.net/lists/listinfo/bugs-r-devel