Nothing
nimp <- function(where, blocks = make.blocks(where)) {
#if (length(blocks) > 0 && is.null(names(blocks)))
# stop("Blocks have no names. Use name.blocks(...)")
nwhere <- apply(where, 2, sum)
nimp <- vector("integer", length = length(blocks))
names(nimp) <- names(blocks)
for (i in seq_along(blocks)) nimp[i] <- sum(nwhere[blocks[[i]]])
nimp
}
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.