From 5e9ac956d4440b4a5fc7d548388a3b8f5f568126 Mon Sep 17 00:00:00 2001
From: RossanaTat <rossana.tatulli@studbocconi.it>
Date: Thu, 26 Sep 2024 14:31:03 -0400
Subject: [PATCH] remove unnecessary na.rm

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

diff --git a/R/joyn-merge.R b/R/joyn-merge.R
index a30800f..6d76365 100644
--- 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"