Nothing
any_str_detect <- function(string, pattern, negate = FALSE) {
any(stringr::str_detect(string = string, pattern = pattern, negate = negate), na.rm = TRUE)
}
str_detect2 <- function(string, pattern, negate = FALSE) {
lgl <-
if(is.list(string)) {
purrr::map_lgl(string, ~ any_str_detect(string = .x, pattern = pattern, negate = negate))
} else {
stringr::str_detect(string = string, pattern = pattern, negate = negate)
}
return(lgl)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.