--- a
+++ b/a_PreprocessPipeline/utils.R
@@ -0,0 +1,31 @@
+
+setCMD <- function(cmd, dir = ".", sepN = 1, conf = cmdConf) {
+  
+  idx <- seq_along(cmd) %% sepN
+  idx[idx == 0] <- sepN
+  
+  cmdList <- tapply(cmd, idx, c)
+  
+  cmdHead <- glue(cmdConf$head, .trim = F)
+  cmdList <- map2(cmdHead, cmdList, ~ c(.x, .y))
+  names(cmdList) <- 1:length(cmdList)
+  
+  iwalk(cmdList, ~ write.table(
+    .x,
+    glue("{dir}/batch{.y}.sh"),
+    sep = "\n", quote = F, row.names = F, col.names = F,
+    eol = "\n"
+  ))
+  
+  submit <- glue(
+    "{cmdConf$prefix} {dir}/batch{names(cmdList)}.sh {cmdConf$suffix}"
+  )
+  write.table(
+    c("#!/bin/bash", submit),
+    glue("{dir}/submit.sh"),
+    sep = "\n", quote = F, row.names = F, col.names = F,
+    eol = "\n"
+  )
+  
+  system(glue("ls -lh {dir}"))
+}