add code in else statement of multiplot in zone_summary

noaa-nwfsc · Apr 23, 2024 · 1b3237d · 1b3237d
1 parent 84726d0
commit 1b3237d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/zone_summary.R b/R/zone_summary.R
@@ -421,12 +421,12 @@ zone_summary <- function(dat,
 
     } else {
 
-      # break_list <- z_brk_fun(spat_join, breaks, n.breaks, bin_colors, count = count)
-      # 
-      # z_plot <- suppressWarnings(z_plot_fun(spat_join, brks = break_list$brks,
-      #                                       bin_colors = break_list$colors,
-      #                                       legend_name = legend_name))
-      # 
+      break_list <- z_brk_fun(spat_join, breaks, n.breaks, bin_colors, count = count)
+
+      z_plot <- suppressWarnings(z_plot_fun(spat_join, brks = break_list$brks,
+                                            bin_colors = break_list$colors,
+                                            legend_name = legend_name))
+
       # z_plot <- suppressWarnings(plotly::ggplotly(z_plot) %>%
       #                              plotly::style(line.width = 1) %>%
       #                              plotly::config(scrollZoom = TRUE) %>%