# where are the examples stored?
example.data.path<-function(examplename){
return(paste0("./test_data/",examplename,"/"))
}
# set available examples' metadata:
example_names<-c("example1","example2")
# Metadata for examples.
# Data frame with one row per
example_metadata<-data.frame(
name=example_names,
path=sapply(example_names,example.data.path) %>% unname,
choice.label.column.to.use=c("Label::English","Label::English"),
stringsAsFactors = F
)
# two ways to load examples:
## example <- load.example("example1")
## names(example$data)
## load_example("example1,global_space=T)
## names(data)
##############################################################################################################################
##############################################################################################################################
##############################################################################################################################
read.example.csv<-function(filename,examplename){
read.csv.auto.sep(paste0(example.data.path(examplename),filename))
}
load.example<-function(name,global_space=F){
ex<-example_metadata[which(example_names==name),,drop=F] %>% as.list
exfile<-function(file){
read.example.csv(file,ex$name)
}
exfilepath<-function(file){
paste0(ex$path,file)
}
ex$data<-exfile("data.csv")
## loading example quetsionnaire
questions<-read.csv(exfilepath("kobo questions.csv"),stringsAsFactors = F)
choices<-read.csv(exfilepath("kobo choices.csv"),stringsAsFactors = F)
ex$questionnaire<-load_questionnaire(ex$data,
questions = questions,
choices = choices,
choices.label.column.to.use = ex$choice.label.column.to.use)
## loading analysisplan
ex$ap <- read.csv(exfilepath("analysis plan.csv"))
## Making data frame with usable names
ex$tf <- data.frame("dependent.var" = c("settlement", "population_group", "when_continue", "males_13_15","uasc_boys", "household_expenditure", "sep_accidental", "bla", NA, NA),
"independent.var" = c("district_localadmin","resp_gender", "when_continue", "children_0_4", "uasc_girls", "household_expenditure", "sep_forced", "hehe", NA, NA)) %>% t %>% as.data.frame(., stringsAsFactors = F)
colnames(ex$tf) <- c("select_one_many_cat","select_one","select_one_NA_heavy", "numeric", "numeric_NA_heavy", "select_multiple", "select_multiple_NA_heavy","fake", "NA", "NULL")
ex$tf[,9] <- c(NULL, NULL)
if(global_space){
data<-ex$data
questionnaire<-ex$questionnaire
return(NULL)
}
return(ex)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.