languages <- function(surveyDF){
languedoc <- names(surveyDF)
languedoc <- languedoc[grepl("label", languedoc)]
languedoc <- gsub("label::", "", languedoc)
if (length(languedoc==1) & languedoc == "label")
languedoc <- "default language"
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.