rmarkDown参数覆盖全局列表

Question

我在rmarkDown中使用params。但是，当使用参数并确保一切都起作用时，我将参数重建为我的全局env中的列表，并通过块零件运行文档，以确保其创建正确的报告。我遇到了一个问题，即YAML中的参数在我的全球环境中覆盖了我的列表。如果您在不编织的情况下运行第一个块，它将创建值为6的参数列表。然后，如果您运行第二个块（Ctrl + Shift + Enter），它将运行整个块。但是它将用yaml中的默认值覆盖参数列表。但是，当我逐行运行IT时（CTRL + Enter）时，此问题不会发生。当我运行Ctrl +Shift +Enter时，该列表被覆盖时会发生什么？

这也发生在.qmd文件中。

---
title: "test"
author: "Michael"
output: html_document
params:
 id: "4"
---

```{r setup, include=TRUE}
knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE
)
params <- list(id = 6)

```

```{r}
library(dplyr)
mtcars %>% 
    filter(cyl == params$id)
```

Answer 1

您可以通过在交互式会话中运行params＆lt; - list（id = 6）来解决这个问题（在RMD和QMD文件中）。因此，这对我有用：

 ---
 title: "test"
 author: "Michael"
 output: html_document
 params:
  id: "4"
 ---
 
 ```{r setup, include=TRUE}
 knitr::opts_chunk$set(
     echo = FALSE,
     message = FALSE,
     warning = FALSE
 )
 if (interactive()) params <- list(id = 6)
 ```
 
 ```{r}
 library(dplyr)
 mtcars %>% 
     filter(cyl == params$id)
 ```

由于编织不是互动的，因此创建参数对象被忽略。

由于块选项还采用代码并进行评估，因此您甚至可以为这样的交互式会话运行特定的设置块：

```{r setup, include=TRUE, eval=interactive()}

在Sidenote上：我什至无法在没有条件的情况下编织文件，因为我会遇到此错误：

Quitting from lines 10-16 (test.qmd) 
Error in eval(expr, envir, enclos) : 
  cannot change value of locked binding for 'params'

Answer 2

可以使用eval = false（编织时未运行）的一个不同选项，以便可以使用yaml id编织它，但是如果您想使用创建的参数您可以运行那行代码：

---
title: "test"
author: "Michael"
output: html_document
params:
 id: "4"
---

```{r setup, include=TRUE, eval=FALSE}
knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE
)
params <- list(id = 6)

```

```{r}
library(dplyr)
mtcars %>% 
    filter(cyl == params$id)
```

output：