内联r在降价表中显示变量值

时间:2017-09-06 00:16:18

标签: r r-markdown

使用RMarkdown。 我在R脚本中定义tau=10,我使用read_chunk(example.R)读入Rmd文件。 我调用example块。 我想在下面定义的表中显示tau的值。 无论我如何尝试,我都无法得到r代码来评估。

感谢任何提示或提示。

```{r example, echo=FALSE, message=FALSE, warnings=FALSE, results='asis'}
```
```{r tbl, message=FALSE, warnings=FALSE, results='asis'}
tbl <- "
| Parameter                           | Value         |
|-------------------------------------|:-------------:| 
|  $$\\frac{\\partial}{\\partial} $$  | `r tau `      |
"
cat(tbl)
```

2 个答案:

答案 0 :(得分:3)

正如@Marius所提到的,只需将表格详细信息放在文本中而不是放在代码块中,然后对tau进行内联调用。

也就是说,将rmarkdown文件的内容更改为:

```{r echo=FALSE}
tau <- 10
```

| Parameter                           | Value         |
|-------------------------------------|:-------------:| 
|  $$\frac{\partial}{\partial} $$     |   `r tau `    |

编辑

如果由于某种原因需要将表文本保存在代码块中,那么您可以尝试:

```{r tbl, message=FALSE, warnings=FALSE, echo=FALSE, results='asis'}
tbl <- c("
| Parameter                           | Value         |
|-------------------------------------|:-------------:| 
|  $$\\frac{\\partial}{\\partial} $$  | ", tau, "     |
")
cat(tbl, sep="")
```

(注意tau是在本地定义的,而不是在本例中通过外部脚本定义的)

答案 1 :(得分:1)

当使用内联R进行Rmarkdown时,这是一个开始:

```{r}
tau=10
```

| Parameter                           | Value               |
|-------------------------------------|:-------------------:| 
|  $$ \frac{\partial}{\partial} $$    | `r tau`             |

但是如果你想做一些比ad-lib更复杂的事情,那就是你想养成使用 paste0(),它允许您顺利混合语言:

```{r}
tau=10
```

| Parameter                           | Value                                                
|
|-------------------------------------|:-------------------------------------------------:| 
|  $$ \frac{\partial}{\partial} $$    | `r tau`                                           |
|  $$ \frac{\partial}{\partial} $$    | `r paste0('**',tau,'**')`                         |
|  $$ \frac{\partial}{\partial} $$    | `r paste0('\\textcolor[RGB]{0,205,102}{',tau,'}')`|
|  $$ \frac{\partial}{\partial} $$    | `r paste0('**','!=',tau-1,'**')`                  | 
|  $$ \frac{\partial}{\partial} $$    | `r paste0('\\textcolor[RGB]{255,0,0}{',tau-1,'}')`|

输出:

enter image description here