tests/testthat/test-compiler-selectors.R

In animint2: Animated Interactive Grammar of Graphics

acontext("selectors")

test_that("first options are copied to selectors", {
  data(WorldBank, package = "animint2")
  gapminder <-
    list(ts=ggplot()+
         make_tallrect(WorldBank, "year")+
         geom_line(aes(year, life.expectancy, group=country, color=region),
                   data=WorldBank, size=4, alpha=3/5,
                       clickSelects="country"),
         scatter=ggplot()+
           geom_point(aes(fertility.rate, life.expectancy,
                          colour=region, size=population),
                      clickSelects="country",
                        showSelected="year", data=WorldBank)+
         geom_text(aes(fertility.rate, life.expectancy, label=country),
                   data=WorldBank,
                       showSelected=c("country", "year"))+
         make_text(WorldBank, 5, 80, "year")+
         scale_size_animint(pixel.range=c(2,20), breaks=10^(4:9)),
         first=list(country="United States", year=1984))
  info <- animint2dir(gapminder, open.browser=FALSE)
  expect_identical(info$selectors$country$selected, "United States")
  expect_identical(info$selectors$year$selected, "1984")
})