R/utilities_for_tests.R

In mabafaba/hypegrammaR: A grammar of hypothesis test driven analysis

# 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)
}