Kableextra 如何在rmarkdown中的表格单元格中嵌入格式化的R代码？

我正在为一个R包做一个小插曲，我想展示如何在两个R包中做同样的事情。我的首选方法是包括几个表，在这些表中，我可以将适当的代码显示在彼此旁边，类似这样：

我不关心确切的字体，但我希望看到R代码被很好地、清晰地排列出来，就像它在一个常规的rmarkdown块中一样，但是在一个表的单元格中

在rmarkdown中有没有办法实现这样的目标

---

（我想可以通过直接键入html来实现，但这会非常麻烦，因为我对html不太了解。）

如果我正确理解您的问题，您只希望R代码能够在Rmarkdown中显示

`r ''````{r}
setup <- pacakge2::gogo(x) %>% 
dplyr::filter(blabla2)
packages2::plot(setup)
```

`r'`{r}
设置百分比
dplyr:：过滤器（blabla2）
packages2:：绘图（设置）
```

这允许您在R块中显示代码

如果您想显示整个代码，可以这样做

````markdown
`r ''````{r}
steup <- pacakge2::gogo(x) %>% 
dplyr::filter(blabla2)
packages::plot(setup)
```
````

```降价
`r'``{r}
steup%
dplyr:：过滤器（blabla2）
包：：绘图（设置）
```
````

---

如果我正确理解了你的问题，你只希望r代码能够显示在RMAKDOWN中

`r ''````{r}
setup <- pacakge2::gogo(x) %>% 
dplyr::filter(blabla2)
packages2::plot(setup)
```

`r'`{r}
设置百分比
dplyr:：过滤器（blabla2）
packages2:：绘图（设置）
```

这允许您在R块中显示代码

如果您想显示整个代码，可以这样做

````markdown
`r ''````{r}
steup <- pacakge2::gogo(x) %>% 
dplyr::filter(blabla2)
packages::plot(setup)
```
````

```降价
`r'``{r}
steup%
dplyr:：过滤器（blabla2）
包：：绘图（设置）
```
````

---

这实际上会将您的r代码呈现为降价代码

如何使用我的huxtable软件包。您至少需要5.0版

library(huxtable)
hx <- huxtable(
        c("", "Goal A", "Goal B", "Goal C"), 
        c("Package 1", "", "", ""), 
        c("Package 2", "", "", "")
      )
hx[2, 2] <- "`setup <- package1::start_run()`"
markdown(hx)[2, 2] <- TRUE
quick_pdf(hx)

库（huxtable）
hx如何使用我的huxtable软件包。您至少需要5.0版

library(huxtable)
hx <- huxtable(
        c("", "Goal A", "Goal B", "Goal C"), 
        c("Package 1", "", "", ""), 
        c("Package 2", "", "", "")
      )
hx[2, 2] <- "`setup <- package1::start_run()`"
markdown(hx)[2, 2] <- TRUE
quick_pdf(hx)

库（huxtable）
谢谢，但我不是这个意思。我希望代码显示在一个表中，就像我在问题中包含的表示例一样。所以，表中的每个单元格都包含不同的R代码。谢谢，但这并不是我的意思。我希望代码显示在一个表中，就像我在问题中包含的表示例一样。因此，表的每个单元格将包含不同的R代码。