R/generateReport.R

In ifCNVR: Isolation-Forest Based 'CNV' Detection from 'NGS' Data

#' generateReport
#'
#' @param outputFile a path to the html output file
#' @param resTable the table result of the CalculateScore() function
#' @param readsMatrix the reads matrix
#' @param CNVpos the CNVpos list result of the abSamples function
#'
#' @import rmarkdown
#'
#' @return a html report
#' @export
#'
#' @examples
#'generateReport()
generateReport <- function(outputFile='n', readsMatrix, resTable, CNVpos){
  if (outputFile!='n'){
    template <- system.file("template.Rmd", package = "ifCNVR")
    render(template, output_file = outputFile)
  } else {
    cat("An output file path is needed.")
  }
}