#' Filter based on selected text
#'
#' @name str_filter
#' @param df A tibble, or an object that can be coerced into a tibble.
#' @param string Input vector. Either a character vector, or something coercible to one.
#' @param pattern Pattern to look for.
#' @import rlang
#' @export
str_filter <- function(df, string, pattern) {
string_quo <- enquo(string)
dplyr::filter(df, stringr::str_detect(!!string_quo, pattern))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.