# NOT RUN {
syn <- synapse$Synapse()
syn$login()
annots <- get_synapse_annotations(syn = syn)
data <- tibble::tibble(
metadataType = c(
"manifest",
"individual",
"biospecimen",
"assay"
),
name = c("a", NA, NA, "c"),
species = "human",
assay = "rnaSeq",
file_data = c(
list(data.frame(a = c(TRUE, FALSE), b = c(1, 3))),
list(NULL),
list(NULL),
list(data.frame(a = c(TRUE, FALSE), b = c(1, 3)))
)
)
res <- check_all(data, annots, syn)
# }
Run the code above in your browser using DataLab