Helpers for working with 1-d arrays

DIM() is to dim() as NROW() is to nrow(). That is, it is identical to dim() in most cases except if the input is a bare atomic vector with no dim attribute, in which case, the length of the vector is returned instead of NULL.

DROP first calls base::drop and then completely removes the dim attribute if the result is a 1-d array

DIM(x)

DROP(x)

Arguments

x	an R vector, potentially with a dim attribute

Value

For DIM, the dim attribute, or if that's not found, then length(x)

For DROP an array with 2 or more axes, or a vector with no dim attributes.

Examples

x <- 1:3
dim(x)
#> NULL
dim(array(x))
#> [1] 3

DIM(x)
#> [1] 3
DIM(array(x))
#> [1] 3

x <- array(1:3)
str(drop(x))
#>  int [1:3(1d)] 1 2 3
str(DROP(x))
#>  int [1:3] 1 2 3