Nothing
reducedlabel <- function(namevec, maxnames=40) {
#check if namevec is longer than maxnames
if (length(namevec) <= maxnames){
return(namevec)
}
#create blank vector to host new names
outnames <- c(rep("",length(namevec)))
#find how often to show real name
skiplen <- ceiling(length(namevec)/maxnames)
for (i in 1:length(namevec)){
if((i%%skiplen)==0){
outnames[i] <- namevec[i]
}
}
return(outnames)
}
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.