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))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.