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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.