diff --git a/R/mgm_init.R b/R/mgm_init.R index 162f865..8da9389 100644 --- a/R/mgm_init.R +++ b/R/mgm_init.R @@ -1,10 +1,10 @@ # Load rJava and jars, initialize JVM -mgm_init <- function(){ +mgm_init<- function(){ # Initalize JVM .jinit() - - jarPath <- paste(getwd(), "tetradLite.jar", sep=.Platform$file.sep) + jarName <- "tetradLite.jar" + jarPath <- paste(getwd(), jarName, sep=.Platform$file.sep) if(!file.exists(jarPath)){ file_url <- 'https://cdn.rawgit.com/benoslab/tetradLite/7c16abbd/out/artifacts/tetradLite_jar/tetradLite.jar' @@ -14,9 +14,9 @@ mgm_init <- function(){ # Add tetrad jar .jaddClassPath(jarPath) - javaPaths <- .jclassPath() + javaPaths <- gsub("\\\\",.Platform$file.sep,.jclassPath()) if(tail(javaPaths, n=1) != jarPath){ - print("Error: tetrad.jar not loaded") + warning(sprintf("Error: %s not loaded", jarName)) } }