tests/testthat/test-fx-fun-ggplot-fxGeomContinuousCI.R

In sflippl/tectr: User Interface for Complex Datasets

context("fx-fun-ggplot-fxGeomContinuousCI")

test_that("nomination works", {
  expect_equal(
    fxe_layer_complete_nominate(fxGeom("ContinuousCI"),
                                AesName("y"),
                                data.frame()) %>%
      length(),
    3
  )
  expect_equal(
    suppressWarnings(
      fxe_layer_complete_nominate(
        fxGeom("ContinuousCI"),
        AesName("y"),
        data.frame(upper = 1:10, lower = 1:10),
        fxGeom_assoc_vars = ggplot2::aes(upper = upper, lower = lower)) %>%
        length()
    ),
    6
  )
})

test_that("nomination works with groups", {
  expect_equal(
    suppressWarnings(
      fxe_layer_complete_nominate(
        fxGeom("ContinuousCI"),
        AesName("y"),
        data.frame(upper = 1:10, lower = 1:10, group = c(rep(1, 5), rep(2, 5))),
        fxGeom_assoc_vars = ggplot2::aes(upper = upper, lower = lower,
                                         group = group)) %>%
        length()
    ),
    6
  )
  expect_equal(
    suppressWarnings(
      fxe_layer_complete_nominate(
        fxGeom("ContinuousCI"),
        AesName("y"),
        data.frame(upper = 1:10, lower = 1:10, group = c(rep(1, 5), rep(2, 5))),
        fxGeom_assoc_vars = ggplot2::aes(upper = upper, lower = lower,
                                         group = notagroup)) %>%
        length()
    ),
    6
  )
})

test_that("votes work", {
  expect_equal(
    fxe_layer_complete_vote(nomination(ggplot2::geom_linerange()),
                            fxGeom("ContinuousCI"),
                            AesName("y"),
                            data.frame()),
    3
  )
  expect_equal(
    fxe_layer_complete_vote(nomination(ggplot2::geom_area()),
                            fxGeom("ContinuousCI"),
                            AesName("y"),
                            data.frame()),
    2
  )
  expect_equal(
    fxe_layer_complete_vote(nomination(ggplot2::geom_point()),
                            fxGeom("ContinuousCI"),
                            AesName("y"),
                            data.frame()),
    2
  )
})