tests/testthat/test-compiler-geom-violin.R

In animint2: Animated Interactive Grammar of Graphics

context("geom_violin")

test_that("", {
  df <- rbind(
    data.frame(x = "a", y = c(0, runif(10), 1)),
    data.frame(x = "b", y = c(0, runif(10), 2))
  )

  p <- ggplot(df, aes(1, y)) +
    geom_violin() +
    facet_grid(x ~ ., scales = "free") +
    coord_cartesian(expand = FALSE)

  expect_equal(layer_scales(p, 1)$y$dimension(), c(0, 1))
  expect_equal(layer_scales(p, 2)$y$dimension(), c(0, 2))
})

# create_quantile_segment_frame -------------------------------------------------

test_that("create_quantile_segment_frame functions for 3 quantiles", {
  density.data <- data.frame(y=(1:256)/256, density=1/256) # uniform density

  qs <- c(0.25, 0.5, 0.75) # 3 quantiles
  expect_equal(create_quantile_segment_frame(density.data, qs)$y,
               rep(qs, each=2))
})