Nothing
PDE2list<-function(PDF)
{
invisible(list(
yr= as.vector(unlist(lapply(PDF, getmem, 1))),
jd= as.vector(unlist(lapply(PDF, getmem, 2))),
mo= as.vector(unlist(lapply(PDF, getmem, 3))),
dom= as.vector(unlist(lapply(PDF, getmem, 4))),
hr= as.vector(unlist(lapply(PDF, getmem, 5))),
mi= as.vector(unlist(lapply(PDF, getmem, 6))),
sec= as.vector(unlist(lapply(PDF, getmem, 7))),
lat= as.vector(unlist(lapply(PDF, getmem, 8))),
lon= as.vector(unlist(lapply(PDF, getmem, 9))),
depth= as.vector(unlist(lapply(PDF, getmem, 10))),
z= as.vector(unlist(lapply(PDF, getmem, 11))),
mag= as.vector(unlist(lapply(PDF, getmem, 12))))
)
}
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.