example(QcMetrics)
show(qcm)
destdir <- tempdir()
(report <- file.path(destdir, "testQCReport"))
## pdf report
qcReport(qcm, reportname = report)
## use pdflatex to generate the pdf file
qcReport(qcm, reportname = report, texi2dvi = "pdflatex")
## default html report
html <- qcReport(qcm, reportname = report, type = "html")
html
if (interactive())
browseURL(html)
## using a custom css templates
writeLines("body {
font-size: 14pt;
width: 650px;
background: #789855;
margin-left: auto;
margin-right: auto;
margin-top: 20px;
margin-bottom: 20;
text-align:justify;
}", con = "style.css")
html2 <- qcReport(qcm, reportname = "customreport", template = "style.css", type = "html")
if (interactive())
browseURL(html2)Run the code above in your browser using DataLab