add rest of multiplot ifelse statement in zone_summary

noaa-nwfsc · Apr 23, 2024 · 1dd9960 · 1dd9960
1 parent 1b3237d
commit 1dd9960
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/zone_summary.R b/R/zone_summary.R
@@ -427,13 +427,13 @@ zone_summary <- function(dat,
                                             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) %>%
-      #                              plotly::plotly_build())
-      # 
-      # # save plot
-      # save_plot(project, "zone_summary", z_plot)
+      z_plot <- suppressWarnings(plotly::ggplotly(z_plot) %>%
+                                   plotly::style(line.width = 1) %>%
+                                   plotly::config(scrollZoom = TRUE) %>%
+                                   plotly::plotly_build())
+
+      # save plot
+      save_plot(project, "zone_summary", z_plot)
     }
 
     # # confid plot ----