1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
.onLoad <-
function(libname, pkgname) {
require(methods) ## we should not need this since it should be automatic
OPATH <- Sys.getenv("PATH")
javahome <- Sys.getenv("JAVA_HOME")
if(!nchar(javahome)) { ## JAVA_HOME was not set explicitly
find.java <- function() {
for (root in c("HLM", "HCU"))
for(key in c("Software\\JavaSoft\\Java Runtime Environment",
"Software\\JavaSoft\\Java Development Kit")) {
hive <- try(utils::readRegistry(key, root, 2), silent=TRUE)
if (!inherits(hive, "try-error")) return(hive)
}
hive
}
hive <- find.java()
if (inherits(hive, "try-error"))
stop("JAVA_HOME cannot be determined from the Registry")
if (!length(hive$CurrentVersion))
stop("No CurrentVersion entry in '",key,"'! Try re-installing Java and make sure R and Java have matching architectures.")
this <- hive[[hive$CurrentVersion]]
javahome <- this$JavaHome
paths <- dirname(this$RuntimeLib) # wrong on 64-bit
} else paths <- character()
if(is.null(javahome) || !length(javahome) || !nchar(javahome))
stop("JAVA_HOME is not set and could not be determined from the registry")
#else cat("using JAVA_HOME =", javahome, "\n")
## we need to add Java-related library paths to PATH
curPath <- OPATH
paths <- c(paths,
file.path(javahome, "bin", "client"), # 32-bit
file.path(javahome, "bin", "server"), # 64-bit
file.path(javahome, "bin"), # base (now needed for MSVCRT in recent Sun Java)
file.path(javahome, "jre", "bin", "client")) # old 32-bit
cpc <- strsplit(curPath, ";", fixed=TRUE)[[1]] ## split it up so we can check presence/absence of a path
## add paths only if they are not in already and they exist
for (path in unique(paths))
if (!path %in% cpc && file.exists(path)) curPath <- paste(curPath, path, sep=";")
## set PATH only if it's not correct already (cannot use identical/isTRUE because of PATH name attribute)
if (curPath != OPATH) {
Sys.setenv(PATH = curPath)
# check the resulting PATH - if they don't match then Windows has truncated it
if (curPath != Sys.getenv("PATH"))
warning("*** WARNING: your Windows system seems to suffer from truncated PATH bug which will likely prevent rJava from loading.\n Either reduce your PATH or read http://support.microsoft.com/kb/906469 on how to fix your system.")
}
library.dynam("rJava", pkgname, libname)
Sys.setenv(PATH = OPATH)
.jfirst(libname, pkgname)
}
|
