Nothing
saveWPX<-function(twpx, destdir="." )
{
########## given a pick data frame, save
########## to disk, based on minimum time
###### write the file in the destdir directory (folder)
RDATES = rangedatetime(twpx)
########### check if the twpx dataframe is empty:
if(RDATES$max$yr == 0 & RDATES$min$yr == 0)
{
return()
}
fout1 = filedatetime(RDATES$min, 0)
fout2 = paste(fout1,"RDATA", sep="." )
fout3 = paste(destdir, fout2, sep="/")
save(file=fout3, twpx)
invisible(fout3)
}
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.