tests/testthat/test-stat_stepribbon.R

In ggsurvfit: Flexible Time-to-Event Figures

test_that("stat_stepribbon() works", {
  expect_error(
    gg_stepribbon1 <-
      survfit(Surv(time, status) ~ 1, df_lung) %>%
      broom::tidy() %>%
      ggplot2::ggplot(ggplot2::aes(x = time, y = estimate, ymin = conf.low, ymax = conf.high)) +
      ggplot2::geom_step() +
      stat_stepribbon(alpha = 0.2),
    NA
  )
  expect_error(print(gg_stepribbon1), NA)


  expect_error(
    gg_stepribbon2 <-
      survfit(Surv(time, status) ~ 1, df_lung) %>%
      broom::tidy() %>%
      ggplot2::ggplot(ggplot2::aes(x = time, y = estimate, ymin = conf.low, ymax = conf.high)) +
      ggplot2::geom_step() +
      stat_stepribbon(alpha = 0.2, direction = "vh"),
    NA
  )
  expect_error(print(gg_stepribbon2), NA)

  # only check on mac
  skip_on_ci()
  vdiffr::expect_doppelganger("gg_stepribbon1", gg_stepribbon1)
  vdiffr::expect_doppelganger("gg_stepribbon2", gg_stepribbon2)
})