Nothing
# 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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.