tests/testthat/test_Decisionplot.R

In dmenne/d13cbreath: Reads and Evaluates Gastric Emptying 13C Breath Test Data

context("Test of decision plot")

test_that("Decision plots must be generated",{
  databasePath = CreateSimulatedBreathTestDatabase()
  con = OpenSqliteConnection(databasePath)
  opt = par(mfrow = c(2,2))
  png_file = tempfile(fileext = ".png")
  dev.off() # Required to be able to delete pdf
  unlink("Rplots.pdf") # Don't know why this is created
  png(png_file)
  DecisionPlot(con, showColors = "red", main = "Method ash")  
  dev.off()
  expect_true(file.exists(png_file))
  unlink(png_file)
  dbDisconnect(con)
})