Nothing
# Very simple right now:
# Convert dashes to underscore
# Convert 'en' to 'en_US'
# Convert e.g. 'de' to 'de_DE'
normalize_lang <- function(lang = NULL){
if(!length(lang) || !nchar(lang)){
message("DESCRIPTION does not contain 'Language' field. Defaulting to 'en-US'.")
lang <- "en-US"
}
if(tolower(lang) == "en" || tolower(lang) == "eng"){
message("Found ambiguous language 'en'. Defaulting to 'en-US")
lang <- "en-US"
}
if(nchar(lang) == 2){
oldlang <- lang
lang <- paste(tolower(lang), toupper(lang), sep = "_")
message(sprintf("Found ambiguous language '%s'. Defaulting to '%s'", oldlang, lang))
}
lang <- gsub("-", "_", lang, fixed = TRUE)
parts <- strsplit(lang, "_", fixed = TRUE)[[1]]
parts[1] <- tolower(parts[1])
parts[-1] <- toupper(parts[-1])
paste(parts, collapse = "_")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.