is_even <- function(x) x %% 2 == 0
is_odd <- function(x) x %% 2 != 0
is_empty <- function(x) length(x) == 0
is_true <- function(x) identical(x, TRUE)
is_false <- function(x) identical(x, FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.