Proper coloring by converting each output line separately

tidyverse · Jan 13, 2019 · 32d6829 · 32d6829
1 parent f662351
commit 32d6829
Show file tree

Hide file tree

Showing 2 changed files with 81 additions and 86 deletions.
diff --git a/content/articles/2019-01-tibble-2-0-1.Rmarkdown b/content/articles/2019-01-tibble-2-0-1.Rmarkdown
@@ -21,7 +21,14 @@ options(crayon.enabled = TRUE)
 ```
 
 ```{r setup-hooks, comment="", results="asis", echo=FALSE}
-old_hooks <- fansi::set_knit_hooks(knitr::knit_hooks, which = c("output", "error"))
+old_hooks <- fansi::set_knit_hooks(
+  knitr::knit_hooks,
+  which = c("output", "error"),
+  proc.fun = function(x, class) {
+    x <- strsplit(x, "\n", fixed = TRUE)[[1]]
+    fansi::html_code_block(fansi::sgr_to_html(fansi::html_esc(x)), class = class)
+  }
+)
 ```