tests/testthat/test-label-glue.R

In r-lib/scales: Scale Functions for Visualization

test_that("label_glue environments work out as intended", {

  x <- LETTERS[1:3]
  y <- "foo"

  # Note `{x}` should mask the `x <- LETTERS[1:3]` above
  f <- label_glue("{x} and {y}")
  expect_equal(f(letters[1:3]), c("a and foo", "b and foo", "c and foo"))

})