使用kable_styling抑制长HTML输出

Question

我的软件包中的一个函数使用kable()和kable_styling()生成一个表。运行此代码时，我在查看器中看到了输出，在控制台中看到了很长的HTML代码。我看到了在Rmd中排除HTML输出但不针对功能的解决方案。它还仅在我使用pkgdown::build_site()

时显示代码

我尝试过invisible()，sink()，并且使用的是最新版本的kableExtra（1.1.0）

如何获取它，使其仅在查看器中显示结果，并在功能的参考页中正确显示？

我不确定如何重新表达pkgdown的内容，但这应该足以取得一些进展。

library(tidyverse)
library(knitr)
library(kableExtra)

mpg %>% 
  kable(format = "html") %>% 
  kable_styling()

# same result
x <- mpg %>% kable(format = "html")

kable_styling(x)

Answer 1

您可以使用capture.output停止在控制台中打印输出，但仍在查看器中显示。

x <- mpg %>% kable(format = "html") %>% kable_styling() %>% capture.output()