R glue glue_col 用顏色構造字符串

{blue foo bar}

{blue 1 + 1 = {1 + 1}}

glue_col(..., .envir = parent.frame(), .na = "NA", .literal = FALSE)

glue_data_col(.x, ..., .envir = parent.frame(), .na = "NA", .literal = FALSE)

library(crayon)

glue_col("{blue foo bar}")
#> foo bar

glue_col("{blue 1 + 1 = {1 + 1}}")
#> 1 + 1 = 2

glue_col("{blue 2 + 2 = {green {2 + 2}}}")
#> 2 + 2 = 4

white_on_black <- bgBlack $ white
glue_col("{white_on_black
  Roses are {red {colors()[[552]]}},
  Violets are {blue {colors()[[26]]}},
  `glue_col()` can show \\
  {red c}{yellow o}{green l}{cyan o}{blue r}{magenta s}
  and {bold bold} and {underline underline} too!
}")
#> Roses are red,
#> Violets are blue,
#> `glue_col()` can show   colors
#> and bold and underline too!

# this would error due to an unterminated quote, if we did not specify
# `.literal = TRUE`
glue_col("{yellow It's} happening!", .literal = TRUE)
#> It's happening!

# `.literal = TRUE` also prevents an error here due to the `#` comment
glue_col(
  "A URL: {magenta https://github.com/tidyverse/glue#readme}",
  .literal = TRUE
)
#> A URL: https://github.com/tidyverse/glue#readme

# `.literal = TRUE` does NOT prevent evaluation
x <- "world"
y <- "day"
glue_col("hello {x}! {green it's a new {y}!}", .literal = TRUE)
#> hello world! it's a new day!