inst/scripts/studiesTable/compareTable.R

In cBioPortalData: Exposes and makes available data from the cBioPortal web resources

denv <- new.env(parent = emptyenv())
load("./data/studiesTable.rda", envir = denv)
latest <- denv[["studiesTable"]]

denv <- new.env(parent = emptyenv())
data("studiesTable", package = "cBioPortalData", envir = denv)
last <- denv[["studiesTable"]]

errcode <- 1

if (!identical(latest, last)) {
    studiesTable <- latest
    errcode <- 0
    usethis::use_data(studiesTable, overwrite = TRUE)
}

q("no", errcode)