tests/testthat/test-alias.R

test_that("Alias", {
  g <- g2(cars, asp(speed, dist)) %>%
    fig_point() %>%
    aka(dist, "SO FAR")

  expect_equal(g$x$scale$dist$alias, "SO FAR")
})
devOpifex/g2r documentation built on Jan. 16, 2022, 12:36 a.m.