R/get_covid19_dataset.R

In Covid19R/covid19R: Provides access to the standardized tidy datasets that are part of the covid19R project

#' Get a Specific Covid19 Tidy Dataset
#'
#' @description Fetches a chosen tidy dataset from the covid19R catalogue
#'
#' @param dataset The name of the dataset from \code{\link{get_covid19_data_info}}
#'
#' @return a tibble of data
#' @export
#'
#' @examples
#'
#' nytimes_states <- get_covid19_dataset("covid19nytimes_states")
#'
#' tail(nytimes_states)
get_covid19_dataset <- function(dataset) {

  #setup what we are doing
  filename <- paste0(dataset, ".rds")
  url <- paste0(repo_url, data_loc, filename)

  #download and read file
  download.file(url, paste0(dataset, ".rds"))
  ret <- base::readRDS(filename)

  #cleanup
  unlink(filename)

  #return
  ret
}