Nothing
#' @keywords internal
str_detect.general <- function(string, pattern, negate = FALSE){
if(length(pattern)==1){
return(stringr::str_detect(string, pattern, negate = negate))
} else if (length(pattern)>1){
res <- c()
for(i in (1:length(pattern))){
newvector <- stringr::str_detect(string, pattern[i], negate = negate)
res <- c(res,newvector)
}
return(res)
}
}
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.