Nothing
addtoedges <- function(profileEdges=blackbox.getOption("profileEdges"), locedge) {
if(is.null(locedge)) return(profileEdges)
oldnr <- nrow(profileEdges)
if (is.null(oldnr)) oldnr <- 0
if ( oldnr>1000 ) { message.redef("profileEdges growing dangerously...")}
profileEdges <- rbind(profileEdges, locedge)
nr <- nrow(profileEdges)
if (is.null(nr)) nr <- 0
if ( oldnr<1001 & nr>1000 ) {
cat("(Reducing profileEdges)", "\n")
blob <- resetCHull(profileEdges, formats="vertices", redundant.mode="double")
profileEdges <- blob$vertices
}
blackbox.options(profileEdges=profileEdges)
return(profileEdges) ## but the two return may not be used
}
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.