I would like to create either one document with markup with subdocuments from each row of the data frame, or create the number of frames for documents with delimiters. The discounted document is a template. Link.
I think it should work to create a for loop, but when I try to do this, by(dataFrame, 1:nrow(dataFrame), function(row) knit(file = "/Users/path/template.Rmd")) I get an error message that the login ended unexpectedly.
Quitting from lines 23-26 (Preview-e0d353674d36.Rmd) Error in knit(file = "/Users/path/template.Rmd") : unused argument (file = "/Users/path/template.Rmd") Calls: <Anonymous> ... eval -> eval -> tapply -> lapply -> FUN -> FUN -> knit Execution halted
I tried to use the same amazing approach that @Yihui decided to programmatically reference text with the knitr-expand extension presented here: R knitr: is it possible to programmatically modify block labels?
From this solution, we have two .Rmd files, My report and Template My report is as follows:
# My report ```{r} data(mtcars) cyl.levels <- unique(mtcars$cyl) ```
The template looks like this:
```{r, results='asis'} cat("### {{ncyl}} cylinders") ``` ```{r mpg-histogram-{{ncyl}}cyl} hist(mtcars$mpg[mtcars$cyl == {{ncyl}}], main = paste({{ncyl}}, "cylinders")) ``` ```{r weight-histogam-{{ncyl}}cyl} hist(mtcars$wt[mtcars$cyl == {{ncyl}}], main = paste({{ncyl}}, "cylinders")) ```
This solution creates a single markdown document with a subdocument (at heading level 2) for each cylinder level. However, I am trying to create a report that retrieves .csv, and then creates and modifies the data frame and creates content for each row of the other frame.
I think I'm stuck on how to use the value in {{ncyl}} to programmatically access database rows. I would like to be able to use the {{ncyl}} levels to go and do things with the corresponding rows in the mtscars dataframe (assuming that for this example there were only rows == levels {{ncyl}}).
While data(mtcars) has more rows than cylyinder levels, R stores the value {{ncyl}} as an integer. So you can call mtcars$gear[[{{ncyl}}]] and get the gear value for the string {{ncyl}}.
Why then, when we add this to our .Rmd template, does it fail?
Forgive me, this will not fail, it will give us gear <- mtcars$gear[[{{ncyl}}]] , but we will not be able to create a piece of equipment, for example, ```{r this-gear-{{gear}}} .
It works
```{r} gear <- mtcars$gear[[{{ncyl}}]] gear ``` ```{r, results='asis'} cat("### {{ncyl}} cylinders") ``` ```{r mpg-histogram-{{ncyl}}cyl} hist(mtcars$mpg[mtcars$cyl == {{ncyl}}], main = paste({{ncyl}}, "cylinders")) ``` ```{r weight-histogam-{{ncyl}}cyl} hist(mtcars$wt[mtcars$cyl == {{ncyl}}], main = paste({{ncyl}}, "cylinders")) ```
This does not work
```{r} gear <- mtcars$gear[[{{ncyl}}]] gear ``` ```{r, results='asis'} cat("### {{ncyl}} cylinders") ``` ```{r mpg-histogram-{{ncyl}}cyl} hist(mtcars$mpg[mtcars$cyl == {{ncyl}}], main = paste({{ncyl}}, "cylinders")) ``` ```{r weight-histogam-{{ncyl}}cyl} hist(mtcars$wt[mtcars$cyl == {{ncyl}}], main = paste({{ncyl}}, "cylinders")) ``` ```{r {{gear}}} gear ```
Error provision
Quitting from lines 10-12 (Preview-e0d32d687661.Rmd) Error in eval(expr, envir, enclos) : object 'gear' not found Calls: <Anonymous> ... knit_expand -> inline_exec -> withVisible -> eval -> eval Execution halted
I think I'm getting closer to the main problem "How to create a markdown document for each line of the frame?" wrong with knitting function.
Can someone help me understand: 1. How to solve the main problem 2. Why {{gear}} does not work in the .Rmd template?
So, I still do not understand (2), but I think that @daroczig drew me close to understanding one way to solve the main problem. I do not think this is too unique for the problem, and I assume that there is a way to solve it without brew or pander or rapport . In any case, I took the brew approach and did something with several rows of data. This causes an error. Notice that I am not doing anything reasonable with this code, just limiting mtcars to 3 lines, so I don't get too much output, and then I create another lame dataframe in a for loop.
# My report <% mtcars1 <- mtcars[1:3,] mtcars1$type <- c('red','blue','green') t.levels <- unique(mtcars1$type) for (ty in t.levels) { p <- subset(mtcars1,type == ty) x <- rep(p, 4) short <- paste0(p$gear, p$mpg) %>
This is just a small chronic modification to the solution suggested by @daroczig below. It works if we call it demo.brew and call it Pandoc.brew('demo.brew', output = tempfile(), convert = 'html') . Let's make one stupid example.
(3) Is there an example of how to do this without brew? I am curious.
Reply to (3) Yes. This works with a for loop that calls a variable instead of a num string
varlist <- unique(df$variable) for (var in varlist) { try(knit2html(input= '/Users/path/template.Rmd', output=paste0('/Users/path/template',var,'.html')))
Works where a loop of 1: nrow () does not work.