使用 kable_styling 抑制长 html 输出

Supress long html output with kable_styling

我的包中的一个函数使用 kable()kable_styling() 生成 table。当我 运行 这段代码时,我在查看器中看到了输出,在控制台中看到了长长的 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)

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

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