Подавить длинный html вывод с помощью kable_styling

Question

Одна из функций в моем пакете создает таблицу, используя kable() и kable_styling(). Когда я запускаю этот код, я вижу как вывод в средстве просмотра, так и длинный HTML код в консоли. Я вижу решения для исключения вывода HTML в Rmd, но не для функции. Он также отображает код, только когда я использую 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()