|
60 | 60 | #' "\\usepackage[labelsep=period, labelfont=bf]{caption}", |
61 | 61 | #' "\\usepackage{subcaption}", |
62 | 62 | #' "\\captionsetup[figure]{skip=10pt}", |
63 | | -#' "\\captionsetup[subfigure]{skip=-10pt, labelfont={bf, it}}", |
| 63 | +#' "\\captionsetup[subfigure]{skip=0pt, labelfont={bf, it}}", |
64 | 64 | #' "\\renewcommand{\\thesubfigure}{\\Alph{subfigure}}", |
65 | 65 | #' "\\begin{document}", |
66 | 66 | #' "<<id, echo=FALSE, fig.width=3, fig.height=2, results='asis'>>=", |
67 | 67 | #' "par(mar=c(2.1, 2.1, 1.1, 1.1))", |
68 | | -#' "n <- 9", |
69 | | -#' "fig <- sprintf('plot(runif(%s))', seq_len(n))", |
70 | | -#' "headings <- sprintf('Subfigure caption, n=%s', seq_len(n))", |
71 | | -#' "PrintFigure(fig, 3, 2, 'id', title='Figure caption', headings=headings)", |
| 68 | +#' "n <- 10", |
| 69 | +#' "fig <- sprintf('inlmisc::PlotGraph(runif(%s))', 2:n)", |
| 70 | +#' "headings <- sprintf('Subfigure caption, $n=%s$', 2:n)", |
| 71 | +#' "PrintFigure(fig, 3, 2, 'id', title='Caption', headings=headings)", |
72 | 72 | #' "@", |
73 | 73 | #' "\\end{document}", |
74 | 74 | #' file = "figure-example.Rnw", sep = "\n") |
75 | | -#' knitr::knit2pdf("figure-example.Rnw", clean = TRUE) # requires TeX installation |
| 75 | +#' knitr::knit2pdf("figure-example.Rnw", clean = TRUE) # requires LaTeX |
76 | 76 | #' system("open figure-example.pdf") |
77 | 77 | #' |
78 | | -#' unlink("figure-example.*") |
79 | | -#' unlink("figure", recursive = TRUE) |
| 78 | +#' unlink(c("figure-example.*", "figure"), recursive = TRUE) |
80 | 79 | #' } |
81 | 80 | #' |
82 | 81 |
|
|
0 commit comments