Nothing
summary.RSiteSearch <- function(object, threshold = 1, ...) {
Sum <- attr(object, 'PackageSummary')
sel <- (Sum[, 'Count'] >= threshold)
sumTh <- Sum[sel,, drop=FALSE]
structure(list(PackageSummary = sumTh,
threshold = threshold,
hits = attr(object, "hits"),
nrow = nrow(object),
string = attr(object, 'string'),
call = attr(object, "call")),
class = c("summary.RSiteSearch", "list"))
}
print.summary.RSiteSearch <- function(x, ...) {
cat("\nCall:\n")
cat(paste(deparse(x$call), sep = "\n", collapse = "\n"), "\n\n", sep = "")
cat("Total number of hits: ", sum( x$hits) , "\n", sep = "")
cat("Number of links downloaded: ", x$nrow, "\n\n", sep = "")
string <- x$string
cat("Packages with at least ", x$threshold, " hit",
if(x$threshold == 1) "" else "s",
" using search pattern '", string, "':\n", sep = "")
print(x$PackageSummary)
invisible()
}
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.