#' not in
#'
#' @param x vector or NULL: the values to be matched
#' @param table the values to be matched against
#' @export
#'
#' @examples
#' "a" %ni% letters
#' "coucou" %ni% letters
#'
`%ni%` <- function (x, table) {
!(match(x, table, nomatch = 0L) > 0L)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.