In aedobbyn/multicolor: Add Multiple Colors to your Console & RMarkdown Output

library(multicolor)

options(crayon.enabled=TRUE)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  echo = TRUE
)

knitr::knit_hooks$set(
  mc_rmd = function(before, options, envir) {
    if (before) {
       return(paste("<div style='font-family: Monaco;'>"))
    } else {
       return(paste("</div>"))
    }
  }
)

r multicolor::multi_color('multicolor', type = "rmd") your RMarkdown HTML documents!

library(multicolor)

multi_color(things$buffalo, 
            colors = palettes$grandbudapest, 
            type = "rmd", 
            add_leading_newline = TRUE)

with type = "rmd".

Chunk Output

multi_color(

  " Brutus is just as smart as Caesar, \n people totally like Brutus just as much as they like Caesar, \n and when did it become okay for one person \n to be the boss of everybody because \n that's not what Rome is about! \n We should totally just STAB CAESAR!",

  colors = c(wesanderson::wes_palettes$GrandBudapest2, wesanderson::wes_palettes$GrandBudapest2),

  type = "rmd",
  add_leading_newline = TRUE

)

You can keep the output monospace by wrapping a chunk in, e.g.,

<div style='font-family: Monaco; font-size = 0.8em'></div>.

Or use a knitr hook such as

knitr::knit_hooks$set(
  mc_rmd = function(before, options, envir) {
    if (before) {
       return(paste("<div style='font-family: Monaco;'>"))
    } else {
       return(paste("</div>"))
    }
  }
)

which can be specified in the chunk options with mc_rmd=TRUE.

r multi_color("Header Output", colors = wesanderson::wes_palettes$Darjeeling1, type = "rmd", add_leading_newline = FALSE)

is also fair game,

• r multi_color("as well as", colors = wesanderson::wes_palettes$Darjeeling1, type = "rmd", add_leading_newline = FALSE)
• r multi_color("anything else you might want", colors = wesanderson::wes_palettes$Darjeeling1, type = "rmd", add_leading_newline = FALSE)

Deets

In multi_color, setting type equal to "rmd" uses the fansi package to produce HTML.

multi_color(type = "rmd")

To display the colored text, the knitr option that should be applied to the chunk or document is the results = "asis" option.

You can do this document-wide with:

knitr::opts_chunk$set(results = "asis")

The chunk containing this option can be hidden with the echo = FALSE option. More on knitr options.

Another global option that should be set is:

options(crayon.enabled = TRUE)

aedobbyn/multicolor documentation built on Jan. 11, 2023, 12:15 a.m.