使用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()