# NOT RUN {
template <- c("individualID", "specimenID", "assay")
dat <- data.frame(individualID = c("a", "b"), specimenID = c("a1", "b1"))
check_col_names(dat, template)
# }
# NOT RUN {
syn <- synapse$Synapse()
syn$login()
a <- data.frame(path = "/path/file.txt", parent = "syn123", assay = "rnaSeq")
check_cols_manifest(a, syn)
b <- data.frame(assay = "rnaSeq")
check_cols_manifest(b, syn)
# }
Run the code above in your browser using DataLab