Nothing
#' Get period information from an object
#'
#' @param object a periodic object
#'
#' @export
get_period <- function(object) {
UseMethod("get_period")
}
#' @export
get_period.default <- function(object) {
attr(object, "period")
}
#' @export
get_period.data.frame <- function(object) {
periods <- lapply(colnames(object), function(col) get_period(object[[col]]))
names(periods) <- colnames(object)
Filter(Negate(is.null), periods)
}
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.