R/xlsform-functions.R

languages <- function(surveyDF){
  languedoc <- names(surveyDF)
  languedoc <- languedoc[grepl("label", languedoc)]
  languedoc <- gsub("label::", "", languedoc)
  if (length(languedoc==1) & languedoc == "label")
    languedoc <- "default language"
}
Monash-RISE/xlsform2codebook documentation built on May 6, 2019, 8:36 p.m.