if (FALSE) { # identical(Sys.getenv("IN_PKGDOWN"), "true")
# returns a tibble with one row per tissue
get_tissue_site_detail()
# `eqtlSampleSummary` and `rnaSeqSampleSummary` are list columns
bladder_site_details <- get_tissue_site_detail() |>
dplyr::filter(tissueSiteDetailId == "Bladder")
purrr::pluck(bladder_site_details, "eqtlSampleSummary", 1)
purrr::pluck(bladder_site_details, "rnaSeqSampleSummary", 1)
}
Run the code above in your browser using DataLab