tests/testthat/test_nonsyntactic.R

library(testthat)
if(require(ggplot2)){
  test_that("Nonsyntactic variable names are accepted", {
    mpg2 <- within(mpg, `car class` <- class)
    gg <- ggplot(mpg2, aes(hwy, cty, colour=`car class`)) +
      geom_point()
    p <- directlabels::direct.label(gg)
    expect_is(p, "ggplot")
  })
}

Try the directlabels package in your browser

Any scripts or data that you put into this service are public.

directlabels documentation built on Sept. 1, 2023, 9:06 a.m.