R/class_container_methods.R

In jeanmathieupotvin/cargo: Data containers, schemas and prototypes

# class_container_methods.R


#' @include internals.R


#' @rdname class_container_methods
#' @template class_container_methods
#' @aliases length,Container-method
#' @export
methods::setMethod("length",
    signature  = signature(x = "Container"),
    definition = function(x)
{
    return(length(x@table))
})


#' @rdname class_container_methods
#' @export
methods::setMethod("names",
    signature  = signature(x = "Container"),
    definition = function(x)
{
    return(names(x@table))
})


#' @rdname class_container_methods
#' @export
methods::setMethod("nrow",
    signature  = signature(x = "Container"),
    definition = function(x)
{
    return(nrow(x@table))
})


#' @rdname class_container_methods
#' @export
methods::setMethod("ncol",
    signature  = signature(x = "Container"),
    definition = function(x)
{
    return(ncol(x@table))
})


#' @rdname class_container_methods
#' @export
methods::setMethod("dim",
    signature  = signature(x = "Container"),
    definition = function(x)
{
    return(c(nrow(x@table), ncol(x@table)))
})