R/main.R

In sjlva/covidRdata: Downloads covid-19 data from another sources

download_dataset <- function(radical = "jhu") {
  radical <- ifelse(radical == "ms_br", "ms", radical)
  url <- paste0(
    "https://github.com/sjlva/Covid19BR/blob/master/rds/covid_",
    radical,
    ".rds?raw=true")
  df <- readr::read_rds(url(url))
  return(df)
}