您最多能選擇 25 個主題
主題必須以字母或數字為開頭,可包含連接號「-」且最長為 35 個字元。
25 行
779 B
25 行
779 B
.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))
|
|
|
|
}
|
|
|