Nothing
which.min.key <- function(keys, sep="|") .Call(which_min_key, keys, sep)
line.merge <- function(sources, target, sep='|', close=TRUE) {
l <- lapply(sources, readLines, 1L)
while(length(i <- which.min.key(l, sep))) {
writeLines(l[[i]], target)
l[[i]] <- readLines(sources[[i]], 1L)
}
if (isTRUE(close))
for(c in sources) close(c)
}
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.