knitr::opts_chunk$set(echo = FALSE, cache = FALSE, warning = FALSE, message = FALSE) library(flextable) library(knitr)
results <- character() for(i in params$ord){ # Put everything into the results vector # results <- c(results, "\n\n", # knit_print(params$section[[i]]$txt)) if(params$section[[i]]$fig == "None"){ results <- c(results, "\n\n", params$section[[i]]$txt) } else { filename <- paste0(tempdir(), "/", params$section[[i]]$fig, ".png") results <- c(results, "\n\n", knitr:::wrap(include_graphics(filename)), "\n\n", params$section[[i]]$txt) } } asis_output(results)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.