tests/testthat/ggplot.R

myggplot <- function(dat) {
  ggplot2::qplot(dat$disp, dat$kmpl)
}

do_myggplot <- function(dat, filename) {
  png(filename)
  on.exit(dev.off())
  print(myggplot(dat))
}
richfitz/remake documentation built on May 27, 2019, 8:27 a.m.