R在编写函数的时候遇到的问题

在编写条件判断时
1.可以使用 || （或）和 && （与）操作符来组合多个逻辑表达式。这些操作符具有“短路效应”：只要 || 遇到第一个 TRUE ，那么就会返回 TRUE ，不再计算其他表达式；只要 && 遇到第一个 FALSE ，就会返回 FALSE ，不再计算其他表达式。** 不能在 if 语句中使用 | 或 **，它们是向量化的操作符，只可以用于多个值
如果一定要使用逻辑向量，那么你可以使用 any() 或 all() 函数将其转换为单个逻辑值。

2.在测试相等关系时，一定要小心， == 是向量化的，很容易输出多个值。要么先检查结果的长度是否为 1，然后使用 all() 或 any() 函数进行转换；要么使用非向量化的identical() 函数。 identical() 非常严格，总是返回一个 TRUE 或者一个 FALSE ，并且不限制参数类型。这意味着，在比较整数和双精度数时，一定要注意：

identical(0L, 0)
> [1] FALSE

解决方式是使用 dplyr::near() 函数进行比较
x == NA 没有任何作用。

 stopifnot() 函数，
它会检查每个参数是否为真，如果某个参数不为真，则生成一条通用的错误消息：
wt_mean <- function(x, w, na.rm = FALSE) {
stopifnot(is.logical(na.rm), length(na.rm) == 1)
stopifnot(length(x) == length(w))
if (na.rm) {
miss <- is.na(x) | is.na(w)
x <- x[!miss]
w <- w[!miss]
函数 ｜ 197
}
sum(w * x) / sum(x)
}
wt_mean(1:6, 6:1, na.rm = "foo")
#> Error: is.logical(na.rm) is not TRUE

Note:注意，如果使用了 stopifnot() 函数，那么你实际上是断言了哪些参数必须为真，而不是
检查哪些参数可能是错的。