Nothing
createTimestamp <-
function (data, timestamp = NULL)
{
if (is.null(timestamp)) {
data$timestamp <- paste(data$date, data$time, sep = " ")
data$timestamp <- as.POSIXct(data$timestamp, tz = "UTC")
data$year <- year(data$timestamp)
data$yday <- yday(data$timestamp)
data$hour <- hour(data$timestamp) + minute(data$timestamp)/60
data$month <- month(data$timestamp)
}
else {
data[[timestamp]] <- as.POSIXct(data[[timestamp]], tz = "UTC")
data$year <- year(data[[timestamp]])
data$yday <- yday(data[[timestamp]])
data$hour <- hour(data[[timestamp]]) + minute(data[[timestamp]])/60
data$month <- month(data[[timestamp]])
}
return(data)
}
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.