tests/testthat/test-gggeo_scale_old.R

In deeptime: Plotting Tools for Anyone Working in Deep Time

test_that("gggeo_scale_old() is deprecated", {
  skip_if_not_installed("divDyn")
  p <- ggplot(coral_div) +
    geom_line(aes(x = stage_age, y = n)) +
    scale_x_reverse("Age (Ma)") +
    ylab("Coral Genera") +
    coord_cartesian(xlim = c(250, 0), ylim = c(0, 1700), expand = FALSE) +
    theme_classic()
  lifecycle::expect_defunct(gggeo_scale_old(p))
})