From a9266eb69c4a087004343032e9834efba25a124f Mon Sep 17 00:00:00 2001
From: Renae Myers <renaemyers@gmail.com>
Date: Fri, 3 Nov 2023 13:58:00 -0700
Subject: [PATCH] add button to reset zoom on overview map

---
 DESCRIPTION | 1 +
 R/Figures.R | 1 +
 2 files changed, 2 insertions(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index 30e15dff..ba02731c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -67,6 +67,7 @@ Imports:
     ggplot2, 
     sf,
     leaflet,
+    leaflet.extras,
     plotly,
     remotes,
     writexl
diff --git a/R/Figures.R b/R/Figures.R
index 07faa36f..b859f704 100644
--- a/R/Figures.R
+++ b/R/Figures.R
@@ -415,6 +415,7 @@ TADA_OverviewMap <- function(.data) {
       leaflet::addProviderTiles("Esri.WorldTopoMap", group = "World topo", options = leaflet::providerTileOptions(updateWhenZooming = FALSE, updateWhenIdle = TRUE)) %>%
       leaflet::clearShapes() %>% # get rid of whatever was there before if loading a second dataset
       leaflet::fitBounds(lng1 = min(sumdat$TADA.LongitudeMeasure), lat1 = min(sumdat$TADA.LatitudeMeasure), lng2 = max(sumdat$TADA.LongitudeMeasure), lat2 = max(sumdat$TADA.LatitudeMeasure)) %>% # fit to bounds of data in tadat$raw
+      leaflet.extras::addResetMapButton() %>% # button to reset to initial zoom and lat/long
       leaflet::addCircleMarkers(
         data = sumdat, 
         lng = ~TADA.LongitudeMeasure,