彩色打印 R markdown html答案

【问题标题】：Color print R mark down html彩色打印 R markdown html
【发布时间】：2016-08-24 02:27:04
【问题描述】：

我想知道有没有办法强制网络浏览器以颜色打印 r mark down html。它可以通过编辑引导文件来实现，但我想知道它是否可以在markdown文件中完成。

可重现的例子：

test.Rmd

---
title: "Habits"
output:
  html_document
---

```{r, echo = FALSE}

df <- data.frame(
  id = 1:10,
  name = c("Bob", "Ashley", "James", "David", "Jenny", 
    "Hans", "Leo", "John", "Emily", "Lee"), 
  age = c(28, 27, 30, 28, 29, 29, 27, 27, 31, 30),
  grade = c("C", "A", "A", "C", "B", "B", "B", "A", "C", "C"),
  test1_score = c(8.9, 9.5, 9.6, 8.9, 9.1, 9.3, 9.3, 9.9, 8.5, 8.6),
  test2_score = c(9.1, 9.1, 9.2, 9.1, 8.9, 8.5, 9.2, 9.3, 9.1, 8.8),
  final_score = c(9, 9.3, 9.4, 9, 9, 8.9, 9.25, 9.6, 8.8, 8.7),
  registered = c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE),
  stringsAsFactors = FALSE)

```

``` {r, eval = TRUE, echo = FALSE, results='asis'}

library(formattable)

format_table(df, list(
  age = color_tile("white", "orange"),
  grade = formatter("span",
    style = x ~ ifelse(x == "A", style(color = "green", font.weight = "bold"), NA)),
  final_score = formatter("span",
    style = x ~ style(color = ifelse(rank(-x) <= 3, "green", "gray")),
    x ~ sprintf("%.2f (rank: %02d)", x, rank(-x))),
  registered = formatter("span", 
    style = x ~ style(color = ifelse(x, "green", "red")),
    x ~ icontext(ifelse(x, "ok", "remove"), ifelse(x, "Yes", "No")))
))

```

HTML 输出表在浏览器中如下所示：

当我尝试打印它时，它变成如下所示：

【问题讨论】：

显然是it's a browser option。
是的。当 html 文件在 Rstudio 中呈现时，浏览器选项由 bootstrap.min.css 设置。我想知道如何覆盖它以进行彩色打印。

标签： r markdown r-markdown

【解决方案1】：

这是 [https://stackoverflow.com/users/4497050/alistaire] 提到的浏览器选项。对其进行彩色打印的最佳方法是将 Shinyapp 中的 HTML 页面保存为 PDF，然后从 PDF 中打印。

【讨论】：