Nothing
prepare_class_names <- function(x) UseMethod("prepare_class_names")
prepare_class_names.character <- function(x) {
x <- unique.default(c("character", x))
if ("ANY" %in% x)
"ANY"
else
x
}
adist2map <- function(x, max.distance = 0.1, ignore.case = TRUE,
exclude = "", partial = FALSE, useBytes = FALSE, ...) {
single_linkage <- function(x) {
result <- seq_len(nrow(x))
for (i in result) {
j <- result %in% result[x[i, ]]
result[j] <- max(result[j])
}
result
}
complete_linkage <- function(x) {
result <- seq_len(nrow(x))
for (i in rev.default(result[-1L])) {
group <- result == result[[i]]
for (j in rev.default(which(x[i, seq_len(i - 1L)])))
if (all(x[j, group])) {
result[[j]] <- result[[i]]
group[[j]] <- TRUE
}
}
result
}
if (nzchar(exclude))
x <- grep(exclude, x, FALSE, TRUE, TRUE, FALSE, useBytes, TRUE)
if (!length(x))
return(structure(.Data = character(), names = character()))
s <- table(x[!is.na(x) & nzchar(x)])
s <- s[order(s, nchar(names(s)))]
d <- adist(x = names(s), y = NULL, ignore.case = ignore.case,
useBytes = useBytes, partial = partial, ...)
n <- nchar(names(s), if (useBytes) "bytes" else "chars")
f <- if (partial) pmin else pmax
for (i in seq_len(nrow(d)))
d[i, ] <- d[i, ] / f(n[[i]], n)
f <- if (partial) complete_linkage else single_linkage
d <- f(d <= max.distance)
n <- names(s)
n[seq_along(d)] <- n[d]
names(n) <- names(s)
n[names(n) != n]
}
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.