library(testthat)
library(epicseg)
#set seed so that errors are reproducible
set.seed(13)
filt <- NULL
#we don't run the CLI tests on Windows
if (.Platform$OS.type != "unix") filt <- "^[A-Za-z]"
test_check("epicseg", filter=filt, reporter="summary")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.