metis-jars/R/zzz.R

.onAttach <- function(libname, pkgname) {

  if (interactive()) {
    jv <- utils::packageVersion("rJava")
    if (utils::compareVersion(toString(jv), "0.9.10") < 1) {
      o <- getOption("java.parameters", "")
      if (!any(grepl("\\-Xrs", o))) {
        packageStartupMessage(
          "Did not find '-Xrs' in java.parameters option. Until rJava is updated, ",
          "please set this up in your/an Rprofile or at the start of scripts. ",
          "See the 'IMPORTANT' section under ?`metis.jars-package`."
        )
      }
    }
  }

}

.onLoad <- function(libname, pkgname) {

  rJava::.jpackage(pkgname, jars = "*", lib.loc = libname)
  rJava::.jpackage(pkgname, lib.loc = libname)
  rJava::.jaddClassPath(dir(file.path(getwd(), "inst/java"), full.names = TRUE))

}