library(testthat)
library(Revolve)
library(numDeriv)
is_greater_than <- function(value) {
function(actual)
expectation(actual > value, paste("is not greater than", value))
}
is_less_than <- function(value) {
function(actual)
expectation(actual < value, paste("is not less than", value))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.