is_number <- function(x) is.numeric(x) && length(x) == 1
is_string <- function(x) is.character(x) && length(x) == 1
`%!in%` <- function(x, table) match(x, table, nomatch = 0) == 0 # nolint
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.