tests/testthat/test-compiler-qplot.r

context("qplot")

test_that("qplot works with variables in data frame and parent env", {
  df <- data.frame(x = 1:10, a = 1:10)
  y <- 1:10
  b <- 1:10

  expect_is(qplot(x, y, data = df), "gganimintplot")
  expect_is(qplot(x, y, data = df, colour = a), "gganimintplot")
  expect_is(qplot(x, y, data = df, colour = b), "gganimintplot")

  bin <- 1
  expect_is(qplot(x, data = df, binwidth = bin), "gganimintplot")
})

test_that("qplot works in non-standard environments", {
  env <- new.env(parent = globalenv())
  expr <- quote({
    `-1-` <- 10
    x <- 1:10
    qplot(x, breaks = 0:`-1-`)
  })

  expect_is(eval(expr, env), "gganimintplot")

})
tdhock/animint2 documentation built on Feb. 17, 2024, 11:42 p.m.