R/data_corona_ts.R

In statistikat/coronar: corona austria

#' Zeitreihendaten der Ministeriumsdaten
#' 
#' [data_corona_ts()] gibt Zeitreihen von Covid-19 Daten zurück. 
#' Die Daten werden aus dem Github-Repo [coronadat](https://github.com/statistikat/coronadat) 
#' extrahiert. In diesem Repo werden - versioniert - die offiziell auf
#' [info.gesundheitsministerium.at](https://info.gesundheitsministerium.at) bereitgestellten
#' Daten gesammelt.
#'
#' @return Eine Liste mit den folgenden Elemente:
#' - `ts_bezirke`: Zeitreihe der Covid-19 nach Bezirk
#' - `ts_alter`: Zeitreihe der Covid-19 nach Altersgruppen 
#' - `ts_geschlecht`: Zeitreihe der Covid-19 nach Geschlecht
#' - `ts_bundesland`: Zeitreihe der Covid-19 Fälle nach Bundesland
#' - `ts_allgemein`: Zeitreihe der Erkrankungen, Hospitalisierungen sowie 
#' Menschen in Intensivbetreuung in Österreich pro Tag
#' - `ts_total`: Covid-19 Fälle in Österreich pro Tag
#' @export
#' @examples
#' lapply(data_corona_ts(), tail)
data_corona_ts <- function() {
  tmpf <- tempfile(fileext = ".rds")
  on.exit(file.remove(tmpf))
  utils::download.file(
    url = "https://github.com/statistikat/coronadat/blob/master/coronadata_ts_latest.rds?raw=true",
    destfile = tmpf, 
    quiet = TRUE)
  readRDS(file = tmpf)
}