if (interactive()) {
library(testthat)
is_null <- rlang::is_null
testthat::test_dir(file.path("tests", "testthat"))
} else {
library(testthat)
library(ggplot2)
library(sciplotr)
testthat::test_check("sciplotr", reporter = testthat::CheckReporter)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.