如何检查 R 中的标量？

我有兴趣识别数字标量，例如：

doub <- 3.14
intg <- 8L

我知道这些被视为长度为一的向量。因此，对于任何 R 对象x, is is.vector(x) && length(x) == 1检查是否正确的方法x是一个标量？length(x) == 1其本身是不够的，因为对于具有一列的数据框或具有一个元素的列表，当它应该返回 false 时，它​​会返回 true。

没有这个功能是不是有什么原因is.scalar基地实施R？由于某种原因，我在其他函数中发现的两个函数对于前面提到的数据框情况失败了，它们是：

assertthat::is.scalar(data.frame(a = 1:2))
lambda.tools::is.scalar(data.frame(a = 1:2))

为什么这两个函数调用的结果与我对如何执行的理解（和定义）不同is.scalar功能应该有效吗？

I think is.atomic适合您的需求。

For why is.vector可能不兼容，请参见，例如：

is.atomic(list(1))
# [1] FALSE

is.vector(list(1))
# [1] TRUE

在你的对象上：

is.scalar <- function(x) is.atomic(x) && length(x) == 1L

is.scalar(doub)
# [1] TRUE

is.scalar(intg)
# [1] TRUE

is.scalar(c(doub, intg))
# [1] FALSE