tests/testthat/test-theme-survalis.R

In survalis: Interpretable Survival Machine Learning Framework

test_that("theme_survalis() and scale helpers produce valid ggplot components", {
  testthat::skip_if_not_installed("ggplot2")

  th <- theme_survalis()
  expect_s3_class(th, "theme")

  p <- ggplot2::ggplot(veteran, ggplot2::aes(age, karno, color = celltype)) +
    ggplot2::geom_point() +
    scale_color_survalis() +
    theme_survalis()

  built <- ggplot2::ggplot_build(p)
  expect_s3_class(built, "ggplot_built")
})

test_that(".survalis_pal() recycles/interpolates beyond the base palette length", {
  expect_length(.survalis_pal(3), 3)
  expect_length(.survalis_pal(8), 8)
  expect_length(.survalis_pal(12), 12)
  expect_true(all(grepl("^#", .survalis_pal(12))))
})