pipeline_code/R/ld_cat.R

library(purrr)
library(readr)


args <- commandArgs(trailingOnly=TRUE)
out1 <- args[1]
args <- args[-1]


k <- map(args, function(x){readRDS(x)}) %>% unlist()

write_lines(k, path=out1)
jean997/cause documentation built on Dec. 25, 2021, 10 p.m.