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>") }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.