Nothing
getGHtime<-function(GH, wi=1, pix=NULL)
{
if(missing(wi)) { wi =1 }
if(missing(pix)) { pix=NULL }
yr = GH$info$yr[wi]
jd = GH$info$jd[wi]
hr = GH$info$hr[wi]
mi = GH$info$mi[wi]
sec = GH$info$sec[wi]
ORGtime = list(yr=yr, jd=jd, hr=hr, mi=mi, sec=sec)
if(!is.null(pix))
{
spix=secdifL(ORGtime, pix)
}
else
{
spix= NULL
}
return(list(yr=yr, jd=jd, hr=hr, mi=mi, sec=sec, spix=spix))
}
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.