In combiz/scFlow: A Single-Cell/Nuclei Analysis Toolkit

if (plot_var == plot) {
  plot_caption <- sprintf(
    "<b>Figure: %s by individual sample (%s).</b>", 
    plot_var, metadata$merge_qc_params$unique_id_var)
} else {
  plot_caption <- sprintf(
    "<b>Figure: %s by %s.</b>", 
    plot_var, strsplit(plot, "_vs_")[[1]][[2]])
}

wzxhzdk:1

wzxhzdk:2

knitr::opts_chunk$set(echo = TRUE)

if (plot == tail(names(metadata$merged_plots[[plot_var]]), 1)) {
  #cat("</div>")
  cat("<hr>")
}

combiz/scFlow documentation built on Feb. 25, 2024, 10:25 a.m.