testfn.Rmd

---
title: "testfn"
output: html_document
---

```{r knitr-setup, include=FALSE, echo=FALSE}
library(knitr)
```

```{r insert-fun, echo=FALSE}
insert_fun = function(name) {
  read_chunk(lines = capture.output(dump(name, '')), labels = paste(name, 'source', sep = '-'))
}
```

```{r insert-lm, echo=FALSE}
insert_fun('lm')
```

```{r lm-source, eval=FALSE, tidy.opts=list(width.cutoff=30)}
```

```{r lm-source, eval=FALSE, tidy=TRUE, tidy.opts=list(width.cutoff=30)}
```

testfn.Rnw

\documentclass{article}

\begin{document}

<<insert-fun, echo=FALSE>>=
insert_fun = function(name) {
  read_chunk(lines = capture.output(dump(name, '')), labels = paste(name, 'source', sep = '-'))
}
@

<<insert-lm, echo=FALSE>>=
insert_fun('lm')
@

<<lm-source, eval=FALSE, tidy.opts=list(width.cutoff=30)>>=
@

<<lm-source, eval=FALSE, tidy=TRUE, tidy.opts=list(width.cutoff=30)>>=
@

\end{document}