tests/testthat/test-performance_plot.R

context("performance_plot")

test_that("base case works", {
  g = performance_plot(mtcars, "-disp", "am")
  expect_equal(g$data$cutoff,
               c(Inf, -sort(unique(mtcars$disp))))
})
wkostelecki/ezplot documentation built on Aug. 25, 2024, midnight