require(magrittr)
devtools::load_all()
syn <- create_synapse_login()
studies <- get_synapse_tbl(syn, "syn16787123")
dev_files <-
projectlive.modules::get_synapse_tbl(
syn,
"syn16858331",
columns = c(
"id",
"name",
"individualID",
"parentId",
"specimenID",
"assay",
"dataType",
"fileFormat",
"resourceType",
"accessType",
"initiative",
"tumorType",
"species",
"projectId",
"benefactorId",
"reportMilestone",
"createdOn",
"type"
),
col_types = readr::cols(
"consortium" = readr::col_character(),
"reportMilestone" = readr::col_integer()
)
) %>%
dplyr::filter(type == "file") %>%
format_date_columns() %>%
dplyr::select(-c("createdOn")) %>%
dplyr::inner_join(
dplyr::select(
studies,
"studyName",
"studyLeads",
"fundingAgency",
"studyId"
),
by = c("projectId" = "studyId")
)
## dev --
saveRDS(dev_files, "files.RDS")
store_file_in_synapse(
"files.RDS",
"syn24474593"
)
## live --
saveRDS(dev_files, "files.RDS")
store_file_in_synapse(
"files.RDS",
"syn22281727"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.