library(fgu.morris)
knitr::opts_chunk$set(echo = TRUE)
knitr::opts_knit$set(root.dir = normalizePath(".."))
BASE_PATH <- "example-data"
conditions <- list.dirs(BASE_PATH, recursive = FALSE)
for(condition in conditions){
  header <- paste0("<h2>CONDITION ", condition, "</h2>")
  cat (header)
  cat("<p></p>")
  for(session_path in list.dirs(condition, recursive = FALSE)){
    cat("<h4>", basename(session_path), "</h4>")
    session <- load_session(session_path)
    cat('<div class="row">')
    cat('<div class="col-md-12">')
    print(plot_heatmap.session(session))
    cat('</div>')
    cat('</div>')
    cat('<div class="row">')
    for(i in 1:length(session)){
      cat('<div class="col-md-4">')
      print(plot_trial(session[[i]]))
      cat('</div>')
    }
    cat('</div>')
  }
  cat("<p></p>")
}



hejtmy/fgu-morris documentation built on Jan. 6, 2020, 5:58 p.m.