# NOT RUN {
cat("\\documentclass{article}",
"\\usepackage[labelsep=period, labelfont=bf]{caption}",
"\\usepackage{subcaption}",
"\\captionsetup[figure]{skip=5pt}",
"\\captionsetup[subfigure]{skip=-5pt, labelfont={bf, it}}",
"\\renewcommand{\\thesubfigure}{\\Alph{subfigure}}",
"\\begin{document}\n",
"<<id, echo=FALSE, fig.width=3, fig.height=2, results='asis'>>=",
"par(mar=c(2.1, 2.1, 1.1, 1.1))",
"fig <- sprintf('plot(runif(%s))', 1:9)",
"headings <- sprintf('Subfigure caption, n=%s', 1:9)",
"PrintFigure(fig, 3, 2, 'id', title='Figure caption', headings=headings)",
"@\n",
"\\end{document}",
file = "figure-example.Rnw", sep = "\n")
knitr::knit2pdf("figure-example.Rnw", clean = TRUE) # requires TeX installation
system("open figure-example.pdf")
unlink("figure-example.*")
unlink("figure", recursive = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab