#' Load the NCI60 data from GitHub
#' @export
#' @examples
#'
#' \dontrun{
#' NCI60 <- etl_NCI60()
#' }
etl_NCI60 <- function() {
NCI60 <- data.frame()
dir <- tempdir()
lcl <- file.path(dir, "NCI60.rda")
downloader::download(
"https://github.com/mdsr-book/mdsr/blob/master/data-raw/NCI60.rda?raw=true",
destfile = lcl
)
load(lcl)
return(tibble::as_tibble(NCI60))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.