plantillas de knitr y documentos secundarios en un bucle

Question

Antes de Navidad pregunté previamente hoja de estilo única en múltiples documentos knitr.Ahora sé que el término de búsqueda clave que me faltaba es "documento secundario".

He creado un ejemplo de descuento mínimo pero obtengo encabezados en el documento creado que son parte del proceso de tejido.Estoy usando RStudio para procesarlo.He visto muchas preguntas similares, pero ninguna de las respuestas funciona.Probé varias combinaciones de parámetros de fragmentos y hasta ahora fue en vano.

Pregunta: ¿Cómo me deshago del encabezado del documento tejido final?

# Master document

```{r master1, comment='', echo=FALSE, message=FALSE, warning=FALSE, results="asis", fig.width= 4., fig.height= 4, fig.cap= ""}
out = NULL
for (i in 1:3) {
  # lets create three different uniform data sets.
  v1 <- sort(rnorm(2))
  uvec <- runif(10, v1[[1]], v1[[2]])
  # now we want to 
  out <- c(out, knit_child('child.Rmd'))
}
cat(paste(out, collapse = '\n'))
```

El documento hijo contiene:

## child document `r i`

Here is a summary of the dataset:
```{r echo=FALSE}
summary(uvec)
```

Desafortunadamente, también recibo un encabezado molesto...

|
| | 0% |
|…………………. | 33% inline R code fragments

|
|……………………………………. | 67% label: unnamed-chunk-1

|
|………………………………………………………..| 100% ordinary text without R code

|
| | 0% |
|…………………. | 33% inline R code fragments

|
|……………………………………. | 67% label: unnamed-chunk-2

|
|………………………………………………………..| 100% ordinary text without R code

|
| | 0% |
|…………………. | 33% inline R code fragments

|
|……………………………………. | 67% label: unnamed-chunk-3

|
|………………………………………………………..| 100% ordinary text without R code

Answer 1

Una respuesta es usar knit_expand() en lugar de knit_child () y a knit(, quiet=TRUE) más adelante, aquí hay un documento maestro revisado.

# Master document
```{r master1, comment='', echo=FALSE, message=FALSE, warning=FALSE, results="asis", fig.width= 4., fig.height= 4, fig.cap= ""}
out = NULL
for (i in 1:3) {
  # lets create three different uniform data sets.
  v1 <- sort(rnorm(2))
  uvec <- runif(10, v1[[1]], v1[[2]])
  out <- c(out, knit_expand('child.Rmd'))
}
cat(knit(text=unlist(paste(out, collapse = '\n')), quiet=TRUE))
```

Answer 2

The La respuesta dada por Sean no funcionó para mí.El código que funcionó fue:

# Master document

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

out = NULL
for (i in 1:3) {
  # lets create three different uniform data sets.
  v1 <- sort(rnorm(2))
  uvec <- runif(10, v1[[1]], v1[[2]])
  out <- c(out, knit_child('child.Rmd'))
}
```

```{r, echo=FALSE, results="asis"}
cat(paste(out, collapse = '\n'))
```

Answer 3

Me encontré con el mismo problema con Latex en lugar de Markdown y la solución para mí fue usar el \Sexpr en lugar de un bloque de código

Además, knit_child('child.file', quiet=TRUE) funciona también