data-raw/files.R

In Sage-Bionetworks/projectLive_CSBC: Live View of CSBC projects on Synapse

require(magrittr)
devtools::load_all()
syn <- create_synapse_login()

studies <- 
  projectlive.modules::get_synapse_tbl(
    syn, 
    "syn21918972",
    columns = c(
      "grantName",
      "theme"
    )
  ) 

files <-
  projectlive.modules::get_synapse_tbl(
    syn,
    "syn9630847",
    columns = c(
      "id",
      "assay",
      "diagnosis",
      "tumorType",
      "species",
      "grantName",
      "createdOn",
      "consortium",
      "organ",
      "experimentalStrategy"
    )
  ) %>%
  projectlive.modules::format_date_columns() %>%
  dplyr::select(-c("createdOn")) %>%
  dplyr::mutate( "accessType" = "PUBLIC") %>% 
  dplyr::inner_join(studies, by = "grantName")
  
saveRDS(files, "files.RDS")
store_file_in_synapse(
  syn,
  "files.RDS",
  "syn24172460"
)