Nothing
ghstamp <-function(GH, sel, WIN=c(485,600) )
{
ftime <- Zdate(GH$info, sel, t1=0)
p1 = paste(ftime , GH$STNS[sel], GH$COMPS[sel], WIN[1], WIN[2])
return(p1)
}
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.