#' Intersects x and y, but keeps names from x
#'
#' @param x vector 1
#' @param y vector 2
#'
#' @return
#' @export
#'
#'
in_ <- function(x, y) {
return(x[x %in% y])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.