#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.