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")
})
lhdjung/scrutiny documentation built on Sept. 28, 2024, 12:14 a.m.