R/gera-boletim.R

In mellohenrique/codeplan.boletim2: Gerador dos dados do Boletim da Codeplan

#' @title Gera boletim covid-19 da Codeplan
#'
#' @description
#'
#' @inheritParams carrega_dados
#'
#' @return lista com cinco data.frames e data.tables
#'
#' @export

gera_boletim = function(caminho_estados,
                        caminho_ssp,
                        brasilio = TRUE){

  # Carrega dados
  dados = carrega_dados(
    caminho_estados = caminho_estados,
    caminho_ssp = caminho_ssp,
    brasilio = brasilio)

  # Gera resultados
  resultados = gera_resultados(lista_dados = dados)

  # Gera series de faixa etaria em xlsx
  salva_serie_faixa_etaria(lista_dados = dados)

  # Definindo data
  data_ms = paste0(max(resultados[["mortal_letal"]]$data), "-")

  # Desenha graficos
  graficos = desenha_graficos(lista = resultados)

  # Salva resultados e graficos
  ## Resultados
  salva_resultados(lista = resultados, data = data_ms)

  ## Graficos
  salva_graficos(lista = graficos, data = data_ms)

  # Retorna Resultados
  return(resultados)
  }