bugs-r-devel Mailing List for BUGS-R (Page 19)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Thanks Ben! I will look at this in the evening (CET).

Ben Bolker wrote:
>   I have taken a *fairly* recent svn copy of R2WinBUGS (missed the
> last couple of updates reported this morning, but I hope you can
> still use the patch) and made the changes required for me to
> run the example in ?bugs out of the box, without specifying
> a different command line than I would under Windows.
> 
>   Specifically, the changes are:
> 
>  bugs.R: change WINEPATH=NULL to WINEPATH=Sys.getenv("WINEPATH")
>  bugs.run.R: take out a newWINE flag and pass WINEPATH through in
>                        call to win2native()
>  wineutils.R: update win2native()
> 
>   These changes will require at least one tweak to the .Rd files, which I'm
> happy to make, but I'd like some other Linux users to check these mods
> out and make sure they don't break anything ...
> 
>   These changes have slipped through the cracks a couple of times, I'd
> love it they could get in this time so I can get up to date with
> R2WinBUGS --
> 
>   for what it's worth, I can't run R CMD check on R2WinBUGS on my system
> because BRugs is now a required dependency, and it won't install under
> Linux ...
> 
>    cheers
>      Ben Bolker
> 
> 
> diff -c -r R2WinBUGS.new/R/bugs.R bugs-r/trunk/R2WinBUGS/R/bugs.R
> *** R2WinBUGS.new/R/bugs.R      2007-08-07 16:53:47.000000000 -0400
> --- bugs-r/trunk/R2WinBUGS/R/bugs.R     2007-06-14 09:37:13.000000000 -0400
> ***************
> *** 8,14 ****
>       program=c("WinBUGS", "OpenBUGS", "winbugs", "openbugs"),
>       working.directory=NULL,
>       clearWD=FALSE, useWINE=.Platform$OS.type != "windows",
> WINE=Sys.getenv("WINE"),
> !     newWINE=FALSE, WINEPATH=Sys.getenv("WINEPATH"))
>   {
>     program <- match.arg(program)
>     if(program %in% c("openbugs", "OpenBUGS", "OpenBugs")) {
> --- 8,14 ----
>       program=c("WinBUGS", "OpenBUGS", "winbugs", "openbugs"),
>       working.directory=NULL,
>       clearWD=FALSE, useWINE=.Platform$OS.type != "windows",
> WINE=Sys.getenv("WINE"),
> !     newWINE=FALSE, WINEPATH=NULL)
>   {
>     program <- match.arg(program)
>     if(program %in% c("openbugs", "OpenBUGS", "OpenBugs")) {
> diff -c -r R2WinBUGS.new/R/bugs.run.R bugs-r/trunk/R2WinBUGS/R/bugs.run.R
> *** R2WinBUGS.new/R/bugs.run.R  2007-08-07 17:17:41.000000000 -0400
> --- bugs-r/trunk/R2WinBUGS/R/bugs.run.R 2007-06-14 09:37:13.000000000 -0400
> ***************
> *** 4,13 ****
>                newWINE = TRUE, WINEPATH = NULL){
> 
>   if(useWINE && !is.R())
> !     stop ("Non-Windows platforms not yet supported in R2WinBUGS for
> S-PLUS")
> !
> ! ## BB: took out !newWINE (?), added WINEPATH
> ! if(useWINE) bugs.directory <- win2native(bugs.directory,WINEPATH=WINEPATH)
> 
>   ## Update the lengths of the adaptive phases in the Bugs updaters
>     try(bugs.update.settings(n.burnin, bugs.directory))
> --- 4,11 ----
>                newWINE = TRUE, WINEPATH = NULL){
> 
>   if(useWINE && !is.R())
> !     stop ("Non-Windows platforms not yet supported in R2WinBUGS for
> S-PLUS")
> ! if(useWINE && !newWINE) bugs.directory <- win2native(bugs.directory)
> 
>   ## Update the lengths of the adaptive phases in the Bugs updaters
>     try(bugs.update.settings(n.burnin, bugs.directory))
> diff -c -r R2WinBUGS.new/R/wineutils.R bugs-r/trunk/R2WinBUGS/R/wineutils.R
> *** R2WinBUGS.new/R/wineutils.R 2007-08-08 09:34:32.000000000 -0400
> --- bugs-r/trunk/R2WinBUGS/R/wineutils.R        2007-06-14
> 09:37:13.000000000 -0400
> ***************
> *** 45,61 ****
>   }
> 
> 
> ! win2native <- function(x, useWINE=.Platform$OS.type != "windows",
> !                        newWINE=TRUE,
> !                        WINEPATH=Sys.getenv("WINEPATH")) {
> !   ## win -> native
> !                          if (useWINE) {
> !     if (!newWINE) {
> !       winedriveTr(x)
> !     } else {
> !       system(paste(WINEPATH, " \"", x, "\"", sep = ""), intern = TRUE)
> !     }
> !   }
>     else x
>   }
> 
> --- 45,52 ----
>   }
> 
> 
> ! win2native <- function(x, useWINE=.Platform$OS.type != "windows") { #
> win -> native
> !   if (useWINE) winedriveTr(x)
>     else x
>   }
> 
> 
> 

-- 
Lep pozdrav / With regards,
     Gregor Gorjanc
----------------------------------------------------------------------
University of Ljubljana     PhD student
Biotechnical Faculty        www: http://www.bfro.uni-lj.si/MR/ggorjan
Zootechnical Department     blog: http://ggorjan.blogspot.com
Groblje 3                   mail: gregor.gorjanc <at> bfro.uni-lj.si
SI-1230 Domzale             fax: +386 (0)1 72 17 888
Slovenia, Europe            tel: +386 (0)1 72 17 861
----------------------------------------------------------------------

2006	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (11)	Dec (20)
2007	Jan	Feb	Mar	Apr (7)	May (24)	Jun (15)	Jul (5)	Aug (21)	Sep (85)	Oct (9)	Nov	Dec
2008	Jan (15)	Feb (11)	Mar	Apr (2)	May (3)	Jun	Jul	Aug	Sep (29)	Oct (47)	Nov (1)	Dec (1)
2009	Jan (8)	Feb (12)	Mar (14)	Apr (4)	May (1)	Jun	Jul (5)	Aug	Sep	Oct (11)	Nov (18)	Dec
2010	Jan	Feb	Mar (1)	Apr (3)	May (24)	Jun	Jul (1)	Aug (7)	Sep (5)	Oct (3)	Nov (4)	Dec
2011	Jan	Feb	Mar (13)	Apr (3)	May (2)	Jun	Jul (1)	Aug (24)	Sep (3)	Oct	Nov	Dec (29)
2012	Jan (5)	Feb (5)	Mar	Apr	May (1)	Jun	Jul (3)	Aug	Sep	Oct	Nov	Dec
2013	Jan	Feb	Mar	Apr (9)	May (1)	Jun	Jul	Aug (2)	Sep	Oct	Nov	Dec
2015	Jan	Feb	Mar	Apr (1)	May (1)	Jun	Jul (3)	Aug	Sep	Oct	Nov	Dec (1)
2017	Jan	Feb	Mar	Apr	May	Jun (5)	Jul	Aug	Sep	Oct	Nov	Dec