Nothing
gapi <- function(dati){
if (nrow(dati)==1){ret <- FALSE} else {
s1 <- dati$Start[-1]
s2 <- dati$Stop[-nrow(dati)]
ret <- !(sum(s1==s2) == (nrow(dati)-1))}
ret
}
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.