R/internal-cgdsr.R

In acidgenomics/cBioPortalAnalysis: cBioPortal Analysis Utilities

#' Construct a CGDS connection object
#'
#' @note Updated 2020-10-08.
#' @noRd
#'
#' @return `CGDS`.
.cgds <- function() {
    x <- CGDS(
        url = "http://www.cbioportal.org/",
        verbose = FALSE
    )
    assert(is(x, "CGDS"))
    x
}