showMethods("bpmapply")
fun <- function(greet, who) {
paste(Sys.getpid(), greet, who)
}
greet <- c("morning", "night")
who <- c("sun", "moon")
result <- bpmapply(fun, greet, who, BPPARAM = MulticoreParam(2))
cat(paste(result, collapse="\n"), "\n")
Run the code above in your browser using DataLab