* r/R/utils.R (is_wholenumber): Handle vector inputs using & instead of &&.

MLopez-Ibanez · MLopez-Ibanez · commit 5b0acfde37fe · 2026-04-21T15:44:14.000+01:00
diff --git a/r/R/utils.R b/r/R/utils.R
@@ -87,7 +87,7 @@ as_double_matrix_1 <- function(x)
 }
 
 is_wholenumber <- function(x, tol = .Machine$double.eps^0.5)
-  is.finite(x) && abs(x - round(x)) < tol
+  is.finite(x) & (abs(x - round(x)) < tol)
 
 as_integer <- function(x)
 {

Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ as_double_matrix_1 <- function(x)`
`87`	`87`	`}`
`88`	`88`
`89`	`89`	`is_wholenumber <- function(x, tol = .Machine$double.eps^0.5)`
`90`		`- is.finite(x) && abs(x - round(x)) < tol`
	`90`	`+ is.finite(x) & (abs(x - round(x)) < tol)`
`91`	`91`
`92`	`92`	`as_integer <- function(x)`
`93`	`93`	`{`