R/get.data.base.R

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

#' Extrai as datas de um vetor (para pegar a última data ver get.last.date)
#'
#' @param names vector
#' @param last Logical, whether the most recent date of the vector should be returned
#'
#' @export
get.data.base <- function(names, last = FALSE) {
  data.base <- names %>%
    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") %>%
    format("%Y_%m_%d") %>%
    .[!is.na(.)]
    if (last)
    data.base <- max(data.base, na.rm = TRUE)
    return(data.base)
}