R/desenha-graficos.R

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

#' @title Desenha graficos
#'
#' @description Gera os graficos do boletim
#'
#' @param lista data.table com os dados de crescimento de casos e obitos semanais pelo MS
#'
#' @return uma lista com os graficos gerados para o boletim

desenha_graficos = function(lista){
  # Desenha graficos
  graficos = list(crescimento = desenha_crescimento(lista[["crescimento"]]),
                  crescimento_ras = desenha_crescimento_ras(lista[["crescimento_ra"]]),
                  serie = desenha_series(lista[["series"]]),
                  serie_indice = desenha_serie_indice(lista[["df_ms"]]),
                  mortal_letal = desenha_mortal_letal(lista[["mortal_letal"]]))

  # Retorna graficos
  return(graficos)
}