#' Date pt-br
#'
#' Transform the Sys.Date date in a pt-br formatted string.
#'
#'
#' @export
date_pt_br <- function() {
months <- c("janeiro",
"fevereiro",
"março",
"abril",
"maio",
"junho",
"julho",
"agosto",
"setembro",
"outrubro",
"novembro",
"dezembro")
date <- Sys.Date()
stringr::str_c(lubridate::day(date),
" de ",
months[lubridate::month(date)],
" de ",
lubridate::year(date))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.