#' @import readr
get_month_names <- function(){
locale()$date_names$mon
}
get_month_abbr_names <- function(){
locale()$date_names$mon_ab
}
get_all_month_specs <- function(){
c(1:12,
get_month_names(),
get_month_abbr_names())
}
get_day_names <- function(){
locale()$date_names$day
}
get_day_abbr_names <- function(){
locale()$date_names$day_ab
}
get_all_day_specs <- function(){
c(1:7,
get_day_names(),
get_day_abbr_names())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.