inst/pipeline/combine_data.r

#!/usr/bin/Rscript

library(cleanEHR)

args = commandArgs(trailingOnly=TRUE)

institute <- c("CUH", "Oxford", "GSTT", "imperial", "UCLH")

data<-dir(institute, full.name=TRUE)[grep(".RData", dir(institute,
                                                        full.name=TRUE))]

new <- ccRecord()
for (d in data) {
    print(d)
    load(d)
    new <- new + ccd 
}

ccd <- new

save(ccd, file=args[1])
CC-HIC/ccdata documentation built on May 6, 2019, 9:23 a.m.