R/dim.r

In mschubert/narray: Subset- And Name-Aware Array Utility Functions

Defines functions dim

Documented in dim

#' base::dim, but returning 1 for vector
#'
#' @param x  Object to get dimensions on
#' @export
dim = function(x) {
    if (is.null(x) || is.vector(x))
        length(x)
    else
        base::dim(x)
}