adjustments: use rlang and collapse

randrescastaneda · Sep 25, 2024 · f18bd38 · f18bd38
1 parent 90e9b7a
commit f18bd38
Showing 1 changed file with 16 additions and 6 deletions.
diff --git a/R/joyn-merge.R b/R/joyn-merge.R
@@ -543,13 +543,23 @@ joyn <- function(x,
   if (verbose == TRUE) {
     #joyn_msg(msg_type)
 
-    notes_count <- sum(
-      .joynenv$joyn_msgs$type %in% c("info", "note")
-      )
+    # notes_count <- sum(
+    #   .joynenv$joyn_msgs$type %in% c("info", "note")
+    #   )
+    #
+    # warn_count  <- sum(
+    #   .joynenv$joyn_msgs$type == "warn"
+    #   )
+
+    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)
 
-    warn_count  <- sum(
-      .joynenv$joyn_msgs$type == "warn"
-      )
 
     warning_type <- "warn"
     info_type    <- "info"