In Jasondd66/covid_19bioMarkers: Performs common bioinformatics analyses

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)

Jasondd66/covid_19bioMarkers documentation built on Dec. 18, 2021, 12:33 a.m.