Nothing
mgsub <-
function(pattern, replacement = NULL, text.var, fixed = TRUE, ...){
key <- data.frame(pat=pattern, rep=replacement,
stringsAsFactors = FALSE)
msubs <-function(K, x, ...){
sapply(seq_len(nrow(K)), function(i){
x <<- gsub(K[i, 1], K[i, 2], x, fixed = fixed, ...)
}
)
return(gsub(" +", " ", x))
}
x <- Trim(msubs(K=key, x=text.var, ...))
return(x)
}
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.