Nothing
#' @importFrom utils head
#' @export
#' @method head TidySet
head.TidySet <- function(x, n = 6L, ...) {
head(as(x, "data.frame"), n = n)
}
#' @importFrom utils tail
#' @export
#' @method tail TidySet
tail.TidySet <- function(x, n = 6L, ...) {
tail(as(x, "data.frame"), n = n)
}
#' @export
#' @method dim TidySet
dim.TidySet <- function(x) {
c(Elements = nElements(x), Relations = nRelations(x), Sets = nSets(x))
}
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.