tests/testthat/test-add.R

In duthedd/ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics

context("Adding plot elements")

test_that("Mapping class is preserved when adding uneval objects", {
  p <- ggplot(mtcars) + aes(wt, mpg)
  expect_identical(class(p$mapping), "uneval")
})