How do I embed formatted R code in table cells in rmarkdown?

Question

I am working on a vignette for an R package where I want to show how to do the same thing in two R packages. My preferred approach would be to include several tables, where I can show the appropriate code next to each other, something like so:

I don't care about the exact fonts, but I would like to see the R code laid out nicely and clearly, like it would be in a regular rmarkdown chunk, but then in a cell of a table.

Is there a way to achieve something like this in rmarkdown?

(I imagine it can by done by typing html directly, but that would be very cumbersome because I don't know html very well.)

Answer 1

If I understand your question correctly, you just want the R code to be able to be displayed in Rmarkdown?

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

This allows you to show your code in an R chunk

If you want to show your entire code you could do this

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

Which actually renders your r code as markdown code

Answer 2

How to do it with my huxtable package. You'll need at least version 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)

Result: