modify some logic identifying ints for absolute abundances

microbiomeDB · Jun 5, 2024 · 779f5a3 · 779f5a3
1 parent 2a94c7f
commit 779f5a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/class-AbsoluteAbundanceData.R b/R/class-AbsoluteAbundanceData.R
@@ -9,7 +9,7 @@ check_absolute_abundance_data <- function(object) {
     numeric_data <- df[, !(names(df) %in% all_id_cols)]
     if (inherits(df, 'data.table')) numeric_data <- df[, !(names(df) %in% all_id_cols), with=F]
 
-    if (!identical(numeric_data, round(numeric_data))) {
+    if (!all(numeric_data == round(numeric_data))) {
       msg <- "Absolute abundance data must be integer numbers."
       errors <- c(errors, msg)
     }