tests/testthat/test-visuals.R

test_that("Functions produce ggplot2 lists", {
  skip_on_cran()

  plot_pred = visualize_pps(iris, y = 'Species')
  plot_mat = visualize_pps(iris)
  plot_cor = visualize_correlations(iris)
  plot_both = visualize_both(iris)

  expect_true(is.list(plot_pred))
  expect_true(is.list(plot_mat))
  expect_true(is.list(plot_cor))
  expect_true(is.list(plot_both))
})

Try the ppsr package in your browser

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

ppsr documentation built on June 22, 2024, 7:15 p.m.