r - 使用 rmarkdown 打印改进的 tibble 打印

Question

pillar软件包提供了许多格式化选项 tibble打印。
https://pillar.r-lib.org/reference/pillar-package.html#package-options
例如，这是我在 Windows 上看到的机器，它支持这些选项:

但是当我为 rmarkdown 设置相同的选项时文档，我没有看到打印输出有任何区别。

有没有办法成功地让它工作，或者rmarkdown不支持这个本身？

Answer 1

在 vignette for the tibble package ，有一个可能的解决方案。在 .Rmd 文件的设置块中，输入:

knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(tibble)
set.seed(1014)

options(crayon.enabled = TRUE)
options(pillar.bold = TRUE, pillar.subtle_num = TRUE)

knitr::opts_chunk$set(collapse = TRUE, comment = pillar::style_subtle("#>"))

colourise_chunk <- function(type) {
  function(x, options) {
    lines <- x
    if (type != "output") {
      lines <- crayon::red(lines)
    }
    paste0(
      '<div class="sourceCode"><pre class="sourceCode"><code class="sourceCode">',
      paste0(
        fansi::sgr_to_html(htmltools::htmlEscape(lines)),
        collapse = "\n"
      ),
      "</code></pre></div>"
    )
  }
}

knitr::knit_hooks$set(
  output = colourise_chunk("output"),
  message = colourise_chunk("message"),
  warning = colourise_chunk("warning"),
  error = colourise_chunk("error")
)

在一个新块中:

broom::tidy(stats::chisq.test(table(ggplot2::msleep$vore)))

我的 HTML 输出: