In HIVDiversity/MotifBinner2: Processes NGS Primer ID Datasets

Data Processing Report

opts_chunk$set(echo=FALSE)
opts_chunk$set(warning=FALSE)

library(MotifBinner2)

stopifnot(exists('all_results'))
stopifnot(class(all_results) == 'allResults')
operations <- names(all_results)
operations <- operations[grep('^n[0-9]{3}_', operations)]

The following operations were performed: r operations

out <- NULL

for (operation in operations)
{
  result <- all_results[[operation]]
  report_name <- paste(class(result), '.Rmd', sep = '')
  out <- c(out, knit_child(report_name))
  out <- c(out, '\n\n---\n\n')
}