r - Loops with captions with knitr

Question

I am wondering if there is an easy way to produce a bunch of tables or graphics with variable captions in knitr. The only way I know is this: (simplified from https://github.com/yihui/knitr-examples/blob/master/075-knit-expand.Rnw). But it is a drag to collect the output into src and then print it after the loop, because I want to write a function to produce such a loop from an arbitrary dataset.

documentclass{article}
itle{Using knit\_expand() for templates}
author{Yihui Xie}
egin{document}

maketitle
ableofcontents

<<lm-mtcars, tidy.opts=list(width.cutoff=55)>>=
# the template
tpl = c("\subsection{Regression on {{xvar}}}",
        "<<lm-{{xvar}}>>=",
        "lm(mpg~{{xvar}}, data=mtcars)",
        "@")
# expand to knitr source and pass to knit()
src = lapply(names(mtcars)[-1], function(xvar) {knit_expand(text = tpl)})
@

Sexpr{knit(text = unlist(src))}

end{document}

So what I want to be able to do instead is something like this:

documentclass{article}
itle{Using knit\_expand() for templates}
author{Yihui Xie}
egin{document}

maketitle
ableofcontents

<<lm, tidy.opts=list(width.cutoff=55)>>=
    myLfFun=function(dataset){
... some function definition which produces say an lm for each variable in dataset ...
}
@

Sexpr{myLfFun(Titanic}
...
Sexpr{myLfFun(mtcars}
... etc
end{document}

... Which if I ran brew() on it would produce ...

documentclass{article}
itle{Brew + knitR}
author{Ramnath Vaidyanathan}
egin{document}

maketitle
ableofcontents



<<lm-cyl >>=
lm(mpg ~ cyl, data = mtcars)
@

<<lm-disp >>=
lm(mpg ~ disp, data = mtcars)
@

<<lm-hp >>=
lm(mpg ~ hp, data = mtcars)
@

<<lm-drat >>=
lm(mpg ~ drat, data = mtcars)
@

<<lm-wt >>=
lm(mpg ~ wt, data = mtcars)
@

<<lm-qsec >>=
lm(mpg ~ qsec, data = mtcars)
@

<<lm-vs >>=
lm(mpg ~ vs, data = mtcars)
@

<<lm-am >>=
lm(mpg ~ am, data = mtcars)
@

<<lm-gear >>=
lm(mpg ~ gear, data = mtcars)
@

<<lm-carb >>=
lm(mpg ~ carb, data = mtcars)
@

((... same for Titanic database ...))

end{document}

... and the output of the this I could then knit2pdf(). So if the template were called tmpl.Rnw, I would run brew('tmpl.Rnw','doc.Rnw');knit2pdf('doc.Rnw)

Answer 1

I don't see why you need knit_expand when good old sprintf can do the same. Here is the output: http://www.anst.uu.se/chrba104/stackoverflow/output.pdf.

Although my template is also custom made for the mtcars dataset, I don't see how you could make it simpler without losing flexibility.

documentclass{article}
itle{Not using knit\_expand() for templates}
author{Yihui Xie}
egin{document}

maketitle
ableofcontents

<<lm-mtcars, tidy.opts=list(width.cutoff=55)>>=
vars <- setdiff(names(mtcars), 'mpg')
src <- sprintf(
    paste('\subsection{Regression on %s}',
          '<<lm-%s>>=',
          'lm(mpg ~ %s, data=mtcars)',
          '@', sep='
'),
    vars, vars, vars)
@
Sexpr{knit(text = src)}

end{document}