08. 给你的输出字体加点料

R 包，crayon

有以下内容。

Genaral styles

• reset
• bold
• blurred (usually called ‘dim’, renamed to avoid name clash)
• italic (not widely supported)
• underline
• inverse
• hidden
• strikethrough (not widely supported)

Text colors

• black
• red
• green
• yellow
• blue
• magenta
• cyan
• white
• silver (usually called ‘gray’, renamed to avoid name clash)

Background colors

• bgBlack
• bgRed
• bgGreen
• bgYellow
• bgBlue
• bgMagenta
• bgCyan
• bgWhite

如果希望加上多层效果，直接嵌套即可：

或者使用$ 符号：

另外，也提供了方便的拼接方法 %+% ：

我们还可以自定义自己的主题风格：

  error <- red $ bold
  warn <- magenta $ underline
  note <- cyan
  cat(error("Error: subscript out of bounds!\n"))
  cat(warn("Warning: shorter argument was recycled.\n"))
  cat(note("Note: no such directory.\n"))

如果想要额外的颜色，可以使用函数make_style。

> make_style("pink")
Crayon style function, pink: example output.
> pink <- make_style("pink")
> cat(pink("good"))

这才是猛男该用的颜色啊！

# customize my own text output style
pink <- crayon::make_style("pink")
error <- pink $ bold
warn <- pink $ underline
note <- pink