From 1b3237d6b1178471829f35c713f83e9c69160a8a Mon Sep 17 00:00:00 2001 From: Paul-Carvalho Date: Tue, 23 Apr 2024 15:24:15 -0700 Subject: [PATCH] add code in else statement of multiplot in zone_summary --- R/zone_summary.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/R/zone_summary.R b/R/zone_summary.R index bce49630..7d3e6699 100644 --- 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) %>%