#' Import CCLE mutation data
#'
#' @export
#' @note Updated 2021-07-19.
#'
#' @inheritParams params
#'
#' @return `CCLEMutationData`.
#'
#' @examples
#' object <- CCLEMutationData()
#' dim(object)
CCLEMutationData <- # nolint
function(dataset) {
dataset <- match.arg(dataset)
url <- datasets[[dataset]][["ccle"]][["mutations"]][["url"]]
assert(isAURL(url))
df <- .importDataFile(url = url, format = "csv", rownamesCol = NULL)
assert(is(df, "DataFrame"))
colnames(df) <- camelCase(colnames(df), strict = TRUE)
df <- encode(df)
metadata(df) <- list(
"dataset" = dataset,
"packageName" = .pkgName,
"packageVersion" = .pkgVersion
)
new("CCLEMutationData", df)
}
formals(CCLEMutationData)[["dataset"]] <- .formalsList[["depmapDataset"]]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.