diff --git a/R/seasonal_barplot.R b/R/seasonal_barplot.R
index 87527102..246c3a89 100644
--- a/R/seasonal_barplot.R
+++ b/R/seasonal_barplot.R
@@ -154,12 +154,10 @@ seasonal_barplot.swmpr <- function(swmpr_in
 
   dat_hist <- dat_hist %>%
     dplyr::group_by(!! yr, !! seas) %>%
-    # dplyr::filter(!all(is.na(!! parm))) %>%
-    # dplyr::summarise(result = sum(!! parm, na.rm = TRUE), .groups = "drop_last")
-    #dplyr::summarise(result = sum(!! parm, na.rm = TRUE), .groups = "drop_last") %>%
-    dplyr::mutate(na_flag = ifelse(all(is.na(!! parm)), NA, 1)) %>%
-    dplyr::summarise(result = .data$na_flag * sum(!! parm, na.rm = TRUE), .groups = "drop") %>%
-    unique()
+    dplyr::summarise(
+      result = ifelse(all(is.na(!! parm)), NA_real_, sum(!! parm, na.rm = TRUE)),
+      .groups = "drop"
+    )
 
   # Plotting section start ----
   if(plot){