tests/testthat/helper-misc.R

In lbartnik/experiment: Interactive History in R

dummy_plot <- function ()
{
  on.exit(dev.off())
  png(tempfile(fileext = '.png'))
  dev.control("enable")
  plot(seq(10))
  recordPlot()
}

random_plot <- function ()
{
  on.exit(dev.off())
  png(tempfile(fileext = '.png'))
  dev.control("enable")
  plot(rnorm(10))
  recordPlot()
}