Nothing
match_length <- function(pattern, text) {
perl <- .Platform$OS.type == "windows"
mat <- gregexpr(pattern, text, perl = perl)[[1]]
if (mat[1] == -1) 0 else sum(attr(mat, "match.length"))
}
#' @include expressions.R
get_top_script <- function(text) {
num_letters <- vapply(expressions, match_length, 1, text = text)
if (any(num_letters > 0)) {
names(which.max(num_letters))
} else {
NULL
}
}
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.