R/salva.R

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

#' @title Salva resultados
#'
#' @description Avalia os dados de casos e obitos do MS e um grafico com o crescimento dos dados semanais
#'
#' @param dados data.table com os dados de crescimento de casos e obitos semanais pelo MS
#'
#' @return uma lista com grafico de crescimento e obito
#'
#' @import data.table
salva_resultados = function(lista, caminho = "produto/", data){
  # Salva Tabelas
  ## Tabela com dados da SSP
  readr::write_excel_csv2(lista[["dados_ssp"]], file = paste0(caminho, data, "dados-ssp.csv"))

  ## Tabela de mortalidade letalidade
  readr::write_excel_csv2(lista[["mortal_letal"]], file = paste0(caminho, data, "mortal-letal.csv"))

  ## Tabela de mortalidade letalidade capitais
  readr::write_excel_csv2(lista[["mortal_letal_capitais"]], file = paste0(caminho, data, "mortal-letal-capitais.csv"))

  ## Tabela de mortalidade letalidade
  readr::write_excel_csv2(lista[["mortal_letal_ras"]], file = paste0(caminho, data, "mortal-letal-ras.csv"))

  ## Tabela de obitos por idade
  readr::write_excel_csv2(lista[["casos_obitos_idade"]][["obitos"]], file = paste0(caminho, data, "idade-obitos.csv"), delim = ";")

  ## Tabela de casos por idade
  readr::write_excel_csv2(lista[["casos_obitos_idade"]][["casos"]], file = paste0(caminho, data, "idade-casos.csv"))

  ## Tabela dos dados de obitos por idade restritos aos idosos
  readr::write_excel_csv2(lista[["casos_obitos_idade"]][["obitos_idosos"]], file = paste0(caminho, data, "idosos-obitos.csv"))

  ## Tabela do ms para o Distrito Federal
  readr::write_excel_csv2(lista[["df_ms"]][,.(data, casosNovos, casosAcumulado, obitosNovos, obitosAcumulado)], file = paste0(caminho, data, "df-ms.csv"))

  ## Casos por 100 mil habitantes
  readr::write_excel_csv2(lista[["dados_100k"]][["casos"]], file = paste0(caminho, data, "dados-100k-casos.csv"))

  ## Obitos por 100 mil habitantes
  readr::write_excel_csv2(lista[["dados_100k"]][["obitos"]], file = paste0(caminho, data, "dados-100k-obitos.csv"))

  ## Casos por Faixa etaria
  readr::write_excel_csv2(lista[["casos_faixa_etaria"]], file = paste0(caminho, data, "casos-faixa-etaria.csv"))

  ## Obitos por Faixa etaria
  readr::write_excel_csv2(lista[["obitos_faixa_etaria"]], file = paste0(caminho, data, "obitos-faixa-etaria.csv"))
}

#' @title Salva graficos
#'
#' @description Avalia os dados de casos e obitos do MS e um grafico com o crescimento dos dados semanais
#'
#' @param dados data.table com os dados de crescimento de casos e obitos semanais pelo MS
#'
#'
#' @return uma lista com grafico de crescimento e obito
#'
#' @import ggplot2
salva_graficos = function(lista, caminho = "produto/", data){

  ggsave(lista[["crescimento"]][["graf_crescimento_casos"]], file = paste0(caminho, data, "graf-crescimento-casos.png"), width = 10.9, height = 7.39)

  ggsave(lista[["crescimento"]][["graf_crescimento_obitos"]], file = paste0(caminho, data, "graf-crescimento-obitos.png"), width = 10.9, height = 7.39)

  ggsave(lista[["crescimento_ras"]][["graf_crescimento_ra_casos"]], file = paste0(caminho, data, "graf-crescimento-ra-casos.png"), width = 10.9, height = 7.39)

  ggsave(lista[["crescimento_ras"]][["graf_crescimento_ra_obitos"]], file = paste0(caminho, data, "graf-crescimento-ra-obitos.png"), width = 10.9, height = 7.39)

  ggsave(lista[["serie"]][["casos"]], file = paste0(caminho, data, "graf-serie-casos.png"), width = 10.9, height = 7.39)

  ggsave(lista[["serie"]][["obitos"]], file = paste0(caminho, data, "graf-serie-obitos.png"), width = 10.9, height = 7.39)

  ggsave(lista[["serie_indice"]], file = paste0(caminho, data, "graf-serie-indice.png"), width = 10.9, height = 7.39)

  ggsave(lista[["mortal_letal"]], file = paste0(caminho, data, "graf-mortal-letal.png"), width = 10.9, height = 7.39)
}