Nothing
multigrepl <- function(patterns,
x,
returnMatchesForPatterns=TRUE,
...) {
if (returnMatchesForPatterns) {
bindFun <- rbind;
} else {
bindFun <- cbind;
}
res <- do.call(bindFun,
lapply(patterns,
grepl,
x=x,
...));
res <- apply(res,
1,
any);
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.