rjava 运行java,卸载rJava和/或重新启动JVM

I would like to use rJava in combination with mcparallel but obviously the JVM cannot be forked. Therefore a separate JVM instance needs to be initiated for each child process, e.g:

library(rJava)

library(parallel)

myfile

#This works:

mccollect(mcparallel({

#Automatically initiates JVM in child

xlsx::read.xlsx(myfile, 1)

}))

However the problem in my case is that the JVM has already been initiated in the (main) parent process as well. This makes it impossible to use rJava in the child process:

#init JVM in parent

.jinit()

#Doesn't work anymore

mccollect(mcparallel({

xlsx::read.xlsx(myfile, 1)

}))

So what I really need is a way to shutdown/kill and restart the JVM in the child process. Simply detach("package:rJava", unload = TRUE) doesn't seem to do the trick. The force.init parameter doesn't seem to result in a restart either:

#Also doesn't work:

.jinit()

mccollect(mcparallel({

.jinit(force.init = TRUE)

xlsx::read.xlsx(myfile, 1)

}))

Is there some way I can forcefully shutdown/kill the JVM in order to reinitiate it in the child process?

解决方案

There is a way to run expressions using rJava in parallel based on running the parallel processes to get and assemble all results BEFORE you load the rJava library in the main process. As the main R process has not initiated jvm then java is started in each single subprocess and this particular instance will die together with subprocess as well.

# Rsession started

library(parallel)

myfile

e

require(rJava)

require(xlsx)

read.xlsx(myfile, 1)

})

p

q

pq

# again to check reproducibility

p

q

pq2

identical(unname(pq),unname(pq2))

# see the result if it is the right content and not tryerr

pq

# now the main continues ...

# and if necessary even load rJava