Nothing
## Close all active windows
reset <-
function(){
## Close any open windows
if (DALYexists("pop.win")) tkdestroy(DALYget("pop.win"))
if (DALYexists("LE.win")) tkdestroy(DALYget("LE.win"))
for (i in seq(8))
if (DALYexists(paste("data", i, sep = "")))
tkdestroy(DALYget(paste("data", i, sep = "")))
## Reset all variables, *except* 'LE'
resetVariables()
}
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.