R/existe.nowcasting.R

In covid19br/now_fcts: Auxiliary functions for analyzing COVID-19 data from different sources

#' Função para checar se existem dados de nowcasting para a unidade administrativa
#'
#' @param tipo covid, srag, obitos_covid, obitos_srag
#' @param data data
#' @param output.dir diretorio
#'
#' @export
existe.nowcasting <- function(tipo,
                              data,
                              output.dir) {
  # if (data == "NULL") {
  #   data <- get.data.base(tipo = tipo,
  #                         output.dir = output.dir)
  #   }
  # data_file <- as.Date(data, format = formato.data) %>%
  #   format("%Y_%m_%d")
  nowcasting.file <- list.files(path = output.dir,
                                pattern = paste0("nowcasting_", tipo, ".+", data, ".csv"))
  length(nowcasting.file) > 0
}