Nothing
haptable.haplinSlide <- function(object){
## Create haptable for each window
.ut <- f.haptable.list(object)
## change the generic name to window
names(.ut)[names(.ut) == "element"] <- "window"
## Change row.no to row.win to avoid confusion with row.str
names(.ut)[names(.ut) == "row.no"] <- "row.win"
return(.ut)
}
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.