Nothing
#' @keywords internal
#' @noRd
as_difftime <- function (timeseries, format = "%X", units = "auto") {
if (units %in% c("months", "years")) {
if (!is.numeric(timeseries)) {
stop("'timeseries' must be numeric for units = '", units, "'", sep = "")
} else {
structure(timeseries, units = units, class = "difftime")
}
} else base::as.difftime(timeseries, format, units)
}
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.