Nothing
pblapply <-
function (X, FUN, ...)
{
FUN <- match.fun(FUN)
if (!is.vector(X) || is.object(X))
X <- as.list(X)
B <- length(X)
if (!(interactive() && dopb() && B >= 1))
return(lapply(X, FUN, ...))
pb <- startpb(0, B)
rval <- vector("list", B)
for (i in 1:B) {
rval[[i]] <- FUN(X[[i]], ...)
setpb(pb, i)
}
close(pb)
rval
}
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.