R/qualityReportSFF.R

Defines functions qualityReportSFF

Documented in qualityReportSFF

qualityReportSFF <- function(sfffiles, outfile="qcreport.pdf") {
  basename <- gsub(".pdf", "", outfile, fixed=TRUE)
  tmp <<- environment()
  file.copy(system.file("extdata", "qualityReport.Rnw", package="R453Plus1Toolbox"), paste(basename, ".Rnw", sep=""))
  Sweave(paste(basename, ".Rnw", sep=""))
  texi2dvi(file=paste(basename, ".tex", sep=""), pdf=TRUE)
}

Try the R453Plus1Toolbox package in your browser

Any scripts or data that you put into this service are public.

R453Plus1Toolbox documentation built on Nov. 8, 2020, 5:59 p.m.