如何将stopifnot与R中的列表一起使用

假设我有一个向量列表。进一步假设我想要一个基于长度的条件。也就是说，如果这些向量的长度不相等，我希望我的函数返回一个错误

比如说,

---

x我们可以使用
长度
和
唯一

stopifnot(length(unique(lengths(k)))==1)

错误：长度（唯一（长度（k））==1不是真的

长度
将获取
列表中每个
向量
的
长度
，作为
向量
，获取
唯一
，并检查
长度
是否等于1。如果不是，即
stopifnot
，则给出一个错误。非常感谢。