Nothing
keywords <- function( topic )
{
file <- file.path(R.home("doc"),"KEYWORDS")
if(missing(topic))
{
file.show(file)
}
else
{
kw <- scan(file=file, what=character(), sep="\n", quiet=TRUE)
kw <- grep("&", kw, value=TRUE)
kw <- gsub("&[^&]*$","", kw)
kw <- gsub("&+"," ", kw)
kw <- na.omit(trimws(kw))
ischar <- tryCatch(is.character(topic) && length(topic) ==
1L, error = identity)
if (inherits(ischar, "error"))
ischar <- FALSE
if (!ischar)
topic <- deparse(substitute(topic))
item <- paste("^",topic,"$", sep="")
topics <- function(k)
{
matches <- help.search(keyword=k)$matches
matches[ , match("topic", tolower(colnames(matches)))]
}
matches <- lapply(kw, topics)
names(matches) <- kw
tmp <- unlist(lapply( matches, function(m) grep(item, m, value=TRUE) ))
names(tmp)
}
}
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.