From: <li...@us...> - 2007-09-16 17:33:14
|
Revision: 62 http://bugs-r.svn.sourceforge.net/bugs-r/?rev=62&view=rev Author: ligges Date: 2007-09-16 10:33:18 -0700 (Sun, 16 Sep 2007) Log Message: ----------- clean up Modified Paths: -------------- trunk/BRugs/R/zzz.R Modified: trunk/BRugs/R/zzz.R =================================================================== --- trunk/BRugs/R/zzz.R 2007-09-16 17:33:07 UTC (rev 61) +++ trunk/BRugs/R/zzz.R 2007-09-16 17:33:18 UTC (rev 62) @@ -1,8 +1,6 @@ if (is.R()){ ".onLoad" <- function(lib, pkg){ - ## Don't know whether we have to do this before useDynLib()??? - #Sys.putenv("LD_ASSUME_KERNEL"="2.4.1") ## sets path / file variables and initializes subsystems root <- file.path(system.file("OpenBUGS", package=pkg)) ## we do have a NAMESPACE now: library.dynam("BRugs", pkg, lib) @@ -12,8 +10,6 @@ .C("SetTempDir", as.character(tempDir), nchar(tempDir), PACKAGE="BRugs") command <- "BugsMappers.SetDest(2)" .C("CmdInterpreter", as.character(command), nchar(command), integer(1), PACKAGE="BRugs") - #.C("Initialize", as.character(root), as.character(tempDir), - # as.integer(len), nchar(tempDir), PACKAGE="BRugs") if(is.null(getOption("BRugsVerbose"))) options("BRugsVerbose" = TRUE) } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |