## ----hello, results='asis'---------------------------------------------------- cat('_hello_ **markdown**!', '\n') ## ----------------------------------------------------------------------------- 1+1 10:1 rnorm(5)^2 strsplit('hello, markdown vignettes', '') ## ----------------------------------------------------------------------------- n=300; set.seed(123) par(mar=c(4,4,.1,.1)) plot(rnorm(n), rnorm(n), pch=21, cex=5*runif(n), col='white', bg='gray') ## ----------------------------------------------------------------------------- knitr::rocco ## ----setup, echo=FALSE, results='asis'---------------------------------------- x = readLines('docco-linear.Rmd')[-(1:11)] x = gsub('linear', 'classic', x) i = grep('^knitr:::docco_classic', x) x[i - 1] = '```{r}' x[i] = 'knitr::rocco' library(knitr) cat(knit_child(text = x, quiet = TRUE), sep = '\n')