tests/testthat/test-grim-plot.R

plot <- pigs1 %>%
  grim_map() %>%
  grim_plot()

test_that("`grim_plot()` returns a ggplot object", {
  plot %>% expect_s3_class("ggplot")
})

Try the scrutiny package in your browser

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

scrutiny documentation built on Sept. 22, 2024, 9:06 a.m.