我可以在 Rmarkdown / xaringan 中打印小标题吗，这样它们看起来就像 RStudio 控制台

Question

如果我使用 RStudio IDE 中的控制台打印小标题，NA 值将显示为红色。当我在 xaringan 幻灯片上打印表格时，表格为黑白，并且 NA_character_ 值显示为<NA>。有没有办法让 xaringan 幻灯片上的输出看起来像控制台输出（不使用屏幕截图）？

这是一个例子：

---
title: "x"
output:
  xaringan::moon_reader
---


```{r}
library(tibble)
example <- tribble(
  ~name, ~age,
  "Fran", 2,
  "Bob", NA,
  NA, NA
)
example
```

Answer 1

这可以通过fansi包提供，该包提供了在 rmarkdown 中将knitr输出渲染为 HTML 的钩子crayon。更多信息请参见此处的小插图。

```{r setup, echo = FALSE, results='asis'}

options(crayon.enabled = TRUE)

old.hooks <- fansi::set_knit_hooks(knitr::knit_hooks)

```

```{r}

tibble::tribble(
  ~name, ~age,
  "Fran", 2,
  "Bob", NA,
  NA, NA
)

waldo::compare(1:5, 3:7)

```