Nothing
extractwords <- function(words,
patternfile,
pattern.type=c('glob', 're')){
pats <- read.table(patternfile, strip.white=TRUE)
if (pattern.type[1] == 'glob')
pats <- apply(pats, 1, glob2rx)
use <- c()
for (i in 1:length(pats))
use <- union(use, grep(pats[i], words))
return(use)
}
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.