library(testthat)
library(covr)
library(hashmap)
library(purrr)
library(magrittr)
library(organisR)
# Run the tests
results <- testthat::test_dir(
path = "testthat",
reporter = "summary"
)
# Return response code
quit(
save = 'no',
status = results %>% organisR::test_output(),
runLast = FALSE
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.