Nothing
`wasim.assemble.date` <-
function (table)
{
t.midnight <- table$Hour==24
table$Hour[t.midnight] <- 23
dates <- strptime(paste(sep = "", table$Year, "-", table$Month,
"-", table$Day, " ", table$Hour%%24), "%Y-%m-%d %H")
dates[t.midnight] <- dates[t.midnight]+3600
return(as.POSIXct(dates,tz="GMT"))
}
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.