tests/testthat/test-labeller.R

In ronkeizer/vpc: Create Visual Predictive Checks

test_that("labeller", {
  tmp <- simple_data
  sex <- (tmp$obs$ID) %% 2
  race <- (tmp$obs$ID) %% 3
  tmp$obs$sex <- sex
  tmp$obs$race <- race
  tmp$sim$sex <- sex
  tmp$sim$race <- race
  
  v1 <- vpc(sim = tmp$sim, obs = tmp$obs, stratify = "race",
            facet = "wrap", vpcdb = F, labeller = ggplot2::label_both)
  expect_s3_class(
    v1, "ggplot",
    # plot succeeded
  )
  expect_equal(
    length(v1$facet$params$facets),
    1,
    info="facets succeeded"
  )
})