# Script to perform the Operation Qualification
# ---------------------------------------------
#
# Do not edit without checking back with Inga.
library(testthat)
library(ggPMX)
cat("TEST RUN DATE:", date(), "\n")
cat("TESTING PACKAGE:\n")
print(packageDescription("ggPMX"))
cat("RUNNING PACKAGE TESTS:\n")
# Run each section separately to get subsequent numbering per section
# of the TAP reporter; execution order must be aligned with steps described
# in the main vignette (introduction.Rmd)
for(test in c("test-reader", # Step 1: Read data, using standard configuration
"test-gpar", # Step 2: Set graphics settings
"test-plot", # Step 3: generate standard plots
"misc" # Additional tests
)) {
test_package("ggPMX", filter=test, reporter="tap")
}
# Finally run all tests once more, but with the stop reporter. This
# ensures that the last line of this script is only displayed if and
# only if all tests run successful
test_package("ggPMX", reporter="stop")
cat("\n\nR SESSION INFO:\n")
print(sessionInfo())
cat("\nTEST FINISH DATE:", date(), "\n")
cat("\n\nALL TESTS SUCCESSFUL\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.