knitr::opts_chunk$set(echo = TRUE)
library(htmltools)
library(hypegrammaR)
library(kableExtra)
# expects in environment:
# - questionnaire (can be NULL)
# - resultlist (list(analysisplan = .., results = ...))
# - by_analysisplan_columns
# - by_prefix
# - render_result_with
analysisplan<-resultlist$analysisplan
resultlist$analysisplan$repeat.var[analysisplan$repeat.var %in% c("", " ",NA,"NA")] <- NA
resultlist$analysisplan$repeat.var.value[analysisplan$repeat.var.value %in% c("", " ",NA,"NA")] <- NA
# knitr::kable(analysisplan,format = "html")

if(!is.null(questionnaire)){
  resultlist$results<- resultlist$results %>% lapply(function(x){map_to_labeled(result = x, questionnaire = questionnaire)})
}






md_out <- resultlist_recursive_markdown(resultlist,
                              by_analysisplan_columns = by_analysisplan_columns,
                              by_prefix = by_prefix,
                              level = level,
                              render_result_with = render_result_with,
                              label_varnames = label_varnames)

cat(md_out)
cat("<style>")
cat(".section .tocify-subheader .tocify-item {
margin-left:5px;
padding-left:5px;
background: rgba(0, 0, 0, 0.1); 
}")

cat("</style>")


mabafaba/hypegrammaR documentation built on Oct. 2, 2019, 11:33 a.m.