remove ggplotly plots

Author: Paul-Carvalho

R/zone_summary.R

@@ -373,14 +373,18 @@ zone_summary <- function(dat,
 
           break_list <- z_brk_fun(dat, breaks, n.breaks, bin_colors, count = count)
 
-          tmp_z_plot <- suppressWarnings(z_plot_fun(dat, brks = break_list$brks,
-                                                    bin_colors = break_list$colors,
-                                                    legend_name = legend_name))
-
-          suppressWarnings(plotly::ggplotly(tmp_z_plot) %>%
-                             plotly::style(line.width = 1, hoveron = "fills") %>%
-                             plotly::config(scrollZoom = TRUE) %>%
-                             plotly::plotly_build())
+          z_plot_fun(dat, brks = break_list$brks,
+                     bin_colors = break_list$colors,
+                     legend_name = legend_name)
+          
+          # tmp_z_plot <- suppressWarnings(z_plot_fun(dat, brks = break_list$brks,
+          #                                           bin_colors = break_list$colors,
+          #                                           legend_name = legend_name))
+
+          # suppressWarnings(plotly::ggplotly(tmp_z_plot) %>%
+          #                    plotly::style(line.width = 1, hoveron = "fills") %>%
+          #                    plotly::config(scrollZoom = TRUE) %>%
+          #                    plotly::plotly_build())
         })
 
         z_plot
@@ -399,13 +403,15 @@ zone_summary <- function(dat,
                                             bin_colors = break_list$colors,
                                             legend_name = legend_name))
 
-      z_plot <- suppressWarnings(plotly::ggplotly(tmp_z_plot) %>%
-                                 plotly::style(line.width = 0.5) %>%
-                                 plotly::config(scrollZoom = TRUE) %>%
-                                 plotly::plotly_build())
+      # z_plot <- suppressWarnings(plotly::ggplotly(tmp_z_plot) %>%
+      #                            plotly::style(line.width = 0.5) %>%
+      #                            plotly::config(scrollZoom = TRUE) %>%
+      #                            plotly::plotly_build())
 
-      z_plot <- z_plot %>% 
-        style(hoveron = "fills")
+      # z_plot <- z_plot %>% 
+      #   style(hoveron = "fills")
+      
+      z_plot <- tmp_z_plot
 
       # save plot
       save_plot(project, "zone_summary", z_plot)
@@ -430,13 +436,14 @@ zone_summary <- function(dat,
         z_plot_c <- suppressWarnings(z_plot_fun(spat_join_c, brks = break_list_c$brks,
                                                 bin_colors = break_list_c$colors,
                                                 legend_name = legend_name))
-        z_plot_c <- suppressWarnings(plotly::ggplotly(z_plot_c) %>%
-                                     plotly::style(line.width = 1) %>%
-                                     plotly::config(scrollZoom = TRUE) %>%
-                                     plotly::plotly_build())
 
-        z_plot_c <- z_plot_c %>%
-          style(hoveron = "fills")
+        # z_plot_c <- suppressWarnings(plotly::ggplotly(z_plot_c) %>%
+        #                              plotly::style(line.width = 1) %>%
+        #                              plotly::config(scrollZoom = TRUE) %>%
+        #                              plotly::plotly_build())
+        
+        # z_plot_c <- z_plot_c %>%
+        #   style(hoveron = "fills")
 
         # save plot
         save_plot(project, "zone_summary_confid", z_plot_c)