is_between <- function(x, a, b, inclusive = FALSE) {
lt <- if (inclusive) `<=` else `<`
stopifnot(lt(a, x) && lt(x, b))
invisible(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.