inst/scripts/metadataUpdate.R

repodir <- file.path(Sys.getenv("HOME"), "gh/MultiAssayExperiment.TCGA")
setwd(repodir)
message(getwd())

stopifnot(identical(getwd(), repodir))

version <- "2.1.0"
metas <- list.files(
    paste0("data/bits/v", version),
    pattern = "metadata.csv",
    recursive = TRUE, full.names = TRUE
)

do.call(rbind, lapply(metas, read.csv))
waldronlab/MultiAssayExperiment.TCGA documentation built on May 19, 2023, 6:06 p.m.