if (FALSE) { # identical(Sys.getenv("IN_PKGDOWN"), "true")
# "adult-gtex" (default `project_id` value) and "egtex" both return results
get_downloads_page_data("adult-gtex")
egtex <- get_downloads_page_data("egtex")
egtex
# ..."gtex" does not
get_downloads_page_data("gtex")
# get details for whole blood methylation data, including download URL
purrr::pluck(
egtex$children,
1,
"folders",
"Methylation - EPIC Array",
"children",
"folders",
"mQTLs",
"children",
"files",
"WholeBlood.mQTLs.regular.txt.gz"
)
}
Run the code above in your browser using DataLab