source(system.file("extdata/commonCustomTests.R", package = "admswirl"))
test_ifelse <- function() {
print("x is less than or equal to 10")
}
test_ifelseelse <- function() {
print("x is greater than 4")
}
test_ifif <- function() {
print("x is greater than 4")
}
test_center <- function() {
TRUE
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.