如何在 rmarkdown 的表格單元格中嵌入格式化的 R 代碼？

Question

我正在為 R 包制作一個小插圖，我想展示如何在兩個 R 包中做同樣的事情。 我的首選方法是包含幾個表，我可以在其中顯示彼此相鄰的適當代碼，如下所示：

我不關心確切的字體，但我希望看到 R 代碼的布局很好且清晰，就像它在常規的 rmarkdown 塊中一樣，然后在表格的單元格中。

有沒有辦法在 rmarkdown 中實現這樣的目標？

（我想可以通過直接輸入 html 來完成，但這會非常麻煩，因為我不太了解 html。）

Answer 1

如果我正確理解您的問題，您只是希望 R 代碼能夠在 Rmarkdown 中顯示？

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

這允許您在 R 塊中顯示您的代碼

如果你想顯示你的整個代碼，你可以這樣做

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

這實際上將您的r代碼呈現為降價代碼

Answer 2

如何使用我的 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)

結果：