Update R/data_replicate.R

Co-authored-by: Etienne Bacher <[email protected]>
easystats · Mar 23, 2024 · caf70e1 · caf70e1
1 parent 0f87577
commit caf70e1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/data_replicate.R b/R/data_replicate.R
@@ -106,6 +106,8 @@ data_replicate <- function(data,
 }
 
 
+# is.integer(c(1, 2)) -> FALSE
+# all(c(1, 2) %% 1 == 0) -> TRUE
 .is_integer <- function(x, remove_na = TRUE) {
   if (remove_na) {
     x <- x[!is.na(x)]