tests/testthat/test_ggsurvey.R

In ggstats: Extension to 'ggplot2' for Plotting Stats

test_that("ggsurvey works correctly", {
  skip_on_cran()
  skip_if_not_installed("survey")
  skip_if_not_installed("ggplot2")
  library(ggplot2)

  data(api, package = "survey")
  dstrat <- survey::svydesign(
    id = ~1, strata = ~stype,
    weights = ~pw, data = apistrat,
    fpc = ~fpc
  )

  vdiffr::expect_doppelganger(
    "ggsurvey() dstrat",
    ggsurvey(dstrat) +
      aes(x = cnum, y = dnum) +
      geom_count()
  )

  d <- as.data.frame(Titanic)
  dw <- survey::svydesign(ids = ~1, weights = ~Freq, data = d)

  vdiffr::expect_doppelganger(
    "ggsurvey() titanic",
    ggsurvey(dw) +
      aes(x = Class, fill = Survived) +
      geom_bar(position = "fill")
  )
})