bpschedule(SnowParam()) 		# TRUE
bpschedule(MulticoreParam(2))		# FALSE on windows
p <- MulticoreParam()
bpschedule(p)                           # TRUE
bplapply(1:2, function(i, p) {
    bpschedule(p)                       # FALSE
}, p = p, BPPARAM=p)
Run the code above in your browser using DataLab