R/get.last.date.R

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

#' Pega a data mais recente da base de dados
#'
#' @param dir diretorio
#'
#' @export
#'
get.last.date <- function(dir) {
  data.base <- list.files(dir) %>%
    # regex para catar data
    stringr::str_extract("(19|20)\\d\\d[_ /.](0[1-9]|1[012])[_ /.](0[1-9]|[12][0-9]|3[01])") %>%
    as.Date(format = "%Y_%m_%d") %>%
    max(na.rm = TRUE) %>%
    format("%Y_%m_%d")
}