Nothing
"clu" <-
function(res,which=1,...){
if("clu" %in% names(res)){
res$clu
}else res$best[[which]]$clu
}
"partitions" <-
function(res)lapply(res$best,function(x)x$clu)
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.