Ler dados do novo corona virus a partir da base disponibilizada pelo Ministério da Saúde

ler_dados_covid_msaude.R

library(magrittr)

dados <- "http://plataforma.saude.gov.br/novocoronavirus/resources/scripts/database.js" %>%
  readr::read_file() %>%
  stringr::str_remove("var database=") %>%
  jsonlite::fromJSON() %>%
  purrr::pluck("brazil") %>%
  dplyr::mutate(values = purrr::map(values, dplyr::mutate_all, as.character)) %>%
  tidyr::unnest(values) %>%
  dplyr::mutate(date = lubridate::dmy(date))

dplyr::glimpse(dados)