remove unnecessary na.rm

randrescastaneda · Sep 26, 2024 · 5e9ac95 · 5e9ac95
1 parent 03f4f21
commit 5e9ac95
Showing 1 changed file with 3 additions and 13 deletions.
diff --git a/R/joyn-merge.R b/R/joyn-merge.R
@@ -545,19 +545,9 @@ joyn <- function(x,
     type_element <- rlang::env_get(.joynenv,
                                    "joyn_msgs")$type
 
-    warn_count <- fsum(type_element == "warn",
-                       na.rm = TRUE)
-
-    notes_count <- fsum(type_element %in% c("info", "note"),
-                        na.rm = TRUE)
-
-    # notes_count <- sum(
-    #   .joynenv$joyn_msgs$type %in% c("info", "note")
-    # )
-    #
-    # warn_count  <- sum(
-    #   .joynenv$joyn_msgs$type == "warn"
-    # )
+    warn_count <- fsum(type_element == "warn")
+
+    notes_count <- fsum(type_element %in% c("info", "note"))
 
 
     warning_type <- "warn"