Question

圣诞节前我曾问过single style sheet across multiple knitr documents。我现在知道我遗漏的关键搜索词是“子文档”。

我创建了一个最小的降价示例，但我在创建的文档中获取了编织过程中的标题。我正在使用RStudio来处理它。我见过很多类似的问题，但没有一个答案可行。我尝试了各种块参数的组合，到目前为止无济于事。

问题：如何摆脱最终针织文件中的标题？

# 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'))
```

子文档包含：

## child document `r i`

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

不幸的是，我也得到一个讨厌的标题......

|
| | 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

answer given by Sean对我不起作用。对我有用的代码是：

# 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 2

一个答案是使用knit_expand()代替knit_child（），然后再使用knit(, quiet=TRUE) - 这是修订后的主文档。

# 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 3

我在使用Latex而不是降价时遇到了同样的问题，我的解决方案是使用$count = count($confirmrun); if($count > 0){ //your code }else{ echo 0; }而不是代码块

此外，\Sexpr也适用

knitr模板和循环中的子文档

3 个答案: