From f18bd383a9ef0b97ef4ff6a3a82001c5f5d02fa0 Mon Sep 17 00:00:00 2001
From: RossanaTat <rossana.tatulli@studbocconi.it>
Date: Wed, 25 Sep 2024 18:44:11 -0400
Subject: [PATCH] adjustments: use rlang and collapse

---
 R/joyn-merge.R | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/R/joyn-merge.R b/R/joyn-merge.R
index bf42568..3705fad 100644
--- 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"