Nothing
parseIndex <- function (file)
{
empty <- data.frame(index = character(), description = character(),
stringsAsFactors = FALSE)
if (!file.exists(file)) return(empty)
rl <- readLines(file)
if (!length(rl)) return(empty)
lines <- (regexpr("^", rl) > 0)
index <- gsub(" +.*$", "", rl[!lines])
description <- gsub("^.*? +", "", rl[!lines])
return(data.frame(index = index, description = description,
stringsAsFactors = FALSE))
}
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.