测试列表中所有成员之间的相等性

1)如果列表中只包含问题中的两个组件,请尝试以下操作:

identical(some_list[[1]], some_list[[2]])
## [1] TRUE

2)或对于具有任意数量组件的一般方法,请尝试以下方法:

all(sapply(some_list, identical, some_list[[1]]))
## [1] TRUE

L <- list(1, 2, 3)
all(sapply(L, identical, L[[1]]))
## [1] FALSE

3)减少 与先前的解决方案相比,这有点冗长,但由于有讨论Reduce,这是如何实现的:

Reduce(function(x, y) x && identical(y, some_list[[1]]), init = TRUE, some_list)
## [1] TRUE

Reduce(function(x, y) x && identical(y, L[[1]]), init = TRUE, L)
## [1] FALSE