#' @export
which_in <- function(x,y) x[x %in% y]
#' @export
which_not_in <- function(x,y) x[!x %in% y]
#' @export
remove_na <- function(x) x[!is.na(x)]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.