Skip to content

GitLab

shinyscreen
shinyscreen
Commit 0d1a3a68 authored by Todor Kondic's avatar Todor Kondic
Browse files
Options

Fix stale rmbmix mentions 

* R/run.R (presc.do,sw.do,mb.do): Fix.
parent ce4cb758
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
R/run.R
View file @ 0d1a3a68
...@@ -37,7 +37,7 @@ presc.do<-function(fn_data,fn_cmpd_l,mode,dest=".",proc=F,...) { ...@@ -37,7 +37,7 @@ presc.do<-function(fn_data,fn_cmpd_l,mode,dest=".",proc=F,...) {
if (proc) { if (proc) {
cl<-parallel::makeCluster(proc) cl<-parallel::makeCluster(proc)
parallel::clusterEvalQ(cl,library(rmbmix)) parallel::clusterEvalQ(cl,library(shinyscreen))
parallel::clusterMap(cl,fread,fn_data) parallel::clusterMap(cl,fread,fn_data)
} else { } else {
lapply(fn_data,fread) lapply(fn_data,fread)
...@@ -97,7 +97,7 @@ sw.do <- function(fn_data, fn_cmpd_l, mode, dest=".", combine=F, ...@@ -97,7 +97,7 @@ sw.do <- function(fn_data, fn_cmpd_l, mode, dest=".", combine=F,
w <- if (proc) { w <- if (proc) {
cl=parallel::makeCluster(proc) cl=parallel::makeCluster(proc)
parallel::clusterEvalQ(cl,library(rmbmix)) parallel::clusterEvalQ(cl,library(shinyscreen))
parallel::clusterMap(cl,fread,fn_data) parallel::clusterMap(cl,fread,fn_data)
} else { } else {
lapply(fn_data,fread) lapply(fn_data,fread)
...@@ -175,7 +175,7 @@ mb.do<-function(mb,proc=F) { ...@@ -175,7 +175,7 @@ mb.do<-function(mb,proc=F) {
mb},vectorize.args = c("mb","id","wd")) mb},vectorize.args = c("mb","id","wd"))
if (proc) { if (proc) {
cl<-parallel::makeCluster(proc) cl<-parallel::makeCluster(proc)
parallel::clusterEvalQ(cl,library("rmbmix")) parallel::clusterEvalQ(cl,library("shinyscreen"))
parallel::clusterMap(cl,fwork,mb,infodir,wd) parallel::clusterMap(cl,fwork,mb,infodir,wd)
} else { } else {
fwork(mb,infodir,wd) fwork(mb,infodir,wd)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment