tests/testthat/test-output.R

test_that("open plot windows maintained", {
  n <- length(dev.list())
  evaluate(file("plot.R"))
  expect_length(dev.list(), n)
})

Try the evaluate package in your browser

Any scripts or data that you put into this service are public.

evaluate documentation built on Nov. 2, 2023, 5:18 p.m.