R/meses.R

In SCAEC/Barao: Relações Internacionais Do Brasil

#' Função que devolve meses em português
#'
#' @param num número de um meses
#'
#' @export
meses <- function(num) {

  num <- as.integer(num)

  meses <- c("Janeiro", "Fevereiro", "Mar\u00e7o", "Abril",
             "Maio", "Junho", "Julho", "Agosto",
             "Setembro", "Outubro", "Novembro", "Dezembro")

  num_meses <- c(1:12)

  mes <- tibble::tibble(meses = meses, num_meses = num_meses)

  mes %>%
    dplyr::filter(num_meses == num) %>%
    dplyr::pull(meses)

}