Функция для получения фактических dimnames()

Question

Я хотел бы получить имена каждого измерения для заданного вектора, матрицы или массива. Что-то вроде:

a = matrix(1, nrow=2, ncol=2, dimnames=list(c('a','b'),c('x','y'))) 

dimnames(a) 
# [[1]] 
# [1] "a" "b" 
# 
# [[2]] 
# [1] "x" "y" 

Пока что так хорошо. Если размер не имеет имен, он должен возвращать значение NULL:

b = c(1:5) 

dimnames(b) 
# NULL 

Также отлично работает. Однако, когда я делаю:

a2 = matrix(1, nrow=2, ncol=2) 

dimnames(a2) 
# NULL 

NULL Это дает, даже если есть две оси имен, которые каждыйNULL. Поэтому я хотел бы ожидать, что результат будет:

# [[1]] 
# NULL 
# [[2]] 
# NULL 

вместо один дается dimnames().

Есть ли способ сделать это?

Answer 1

Я не думаю, что есть что-то встроенный в базовый R. Но это довольно легко написать свой собственный:

dimnames2 <- function(x) { 
    if (is.vector(x)) { 
    list(names(x)) 
    } else { 
    d <- dimnames(x) 
    if (is.null(d)) { 
     rep(list(NULL), length(dim(x))) 
    } else { 
     d 
    } 
    } 
} 

dimnames2(1:10) 
dimnames2(matrix(1:10)) 

Answer 2

Вот один вкладыш, чтобы сделать по существу, что делает Хэдли (получено независимо, I клянусь ;-)):

> dimnames2 = function (x) dimnames(x) %else% rep(list(NULL), length(dim(x))) 
> dimnames2(a) 
[[1]] 
[1] "a" "b" 

[[2]] 
[1] "x" "y" 
> dimnames2(a2) 
[[1]] 
NULL 

[[2]] 
NULL 

Ах да, я обманул. %else% эквивалентно оператору нуль-срастаться в C#, или or в Perl, Ruby, PHP ...:

`%else%` = function (a, b) if (identical(a, FALSE) || is.null(a) || length(a) == 0) b else a