r - 检查数字是否为整数

Question

我很惊讶地发现 R 没有提供方便的函数来检查数字是否为整数。

is.integer(66) # FALSE

help files warns :

is.integer(x) does not test if x contains integer numbers! For that, use round, as in the function is.wholenumber(x) in the examples.

该示例将此自定义函数作为“解决方法”

is.wholenumber <- function(x, tol = .Machine$double.eps^0.5)  abs(x - round(x)) < tol
is.wholenumber(1) # is TRUE

如果我必须编写一个函数来检查整数，假设我没有阅读上面的注释，我会编写一个类似于以下内容的函数

check.integer <- function(x) {
    x == round(x)
}

我的方法会在哪里失败？如果您处于我假设的情况，您会采取什么措施？

Answer 1

另一种选择是检查小数部分:

x%%1==0

或者，如果您想在一定的容差范围内进行检查:

min(abs(c(x%%1, x%%1-1))) < tol