if (!exists("indent")) {
    indent <- '#' # ugly hack
}
if (exists("testing")) {
    results <- data.frame()
    survey_repetition <- 'single'
    reliabilities <- list()
    missingness_report <- ''
    data_info <- '' 
    survey_overview <- '' 
    scales_items <- c()
    detailed_items <- TRUE
    detailed_scales <- TRUE
}
knitr::asis_output(data_info)
knitr::asis_output(survey_overview)

r ifelse(detailed_variables || detailed_scales, paste0(indent, "# Variables"),"")

if (detailed_variables || detailed_scales) {
  knitr::asis_output(paste0(scales_items, sep = "\n\n\n", collapse = "\n\n\n"))
}
missingness_report
items
jsonld


rubenarslan/codebook documentation built on Nov. 13, 2022, 12:40 p.m.