执行多个脚本（减去结果）

Question

我想并行运行多个脚本。 我不确定所需的所有步骤。

SCRIPT1：

a <- c(11,12,13,14)
a

SCRIPT2：

b <- c(1,2,3,4)
b

主要剧本：

scripts <- c("Scrip1.R", "Script2.R")

NbCores <- detectCores()-1
cl <- makeCluster(NbCores)

parLapply(cl, scripts, function(script) {
          res <- system(script, wait=FALSE)
           saveRDS(res, "res.rds")})

stopCluster(cl)

现在，如果我尝试加载rds文件，它会给出值127。

readRDS("res.rds") =＆gt; 127

我想加载a和b值，因为我想减去两个脚本的结果，所以我希望我的结果是：

a-b = 10,10,10,10

我不确定如何定义。