R/head.R

In llrs/BaseSet: Working with Sets the Tidy Way

#' @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))
}