From 4ac93eba360df8342daf52f8eedf57e7b201d6e1 Mon Sep 17 00:00:00 2001
From: joshualerickson <joshualerickson@gmail.com>
Date: Sat, 9 Sep 2023 16:51:32 -0600
Subject: [PATCH] update stream network

---
 R/modules.R              |  1 +
 R/utils.R                |  2 +-
 man/add_select_script.Rd | 12 ++++++++++++
 3 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 man/add_select_script.Rd

diff --git a/R/modules.R b/R/modules.R
index ba68ce1..b2b3d9d 100644
--- a/R/modules.R
+++ b/R/modules.R
@@ -1044,6 +1044,7 @@ observe({
     }
 
     if(!is.null(input$leaf_map_draw_new_feature)){
+      p <- shiny::Progress$new()
       p$set(message = "Downloading data...",
             detail = "This may take a little bit...",
             value = 1/2)
diff --git a/R/utils.R b/R/utils.R
index 6c19fd5..bc2ce7c 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -649,7 +649,7 @@ get_dv <- function(sites) {
 
 }
 
-
+#' @title Selecting for Leaflet
 #' @keywords internal
 #' @description Taken from the interals of the \link{mapedit} package
 add_select_script <- function(lf, styleFalse, styleTrue, ns="") {
diff --git a/man/add_select_script.Rd b/man/add_select_script.Rd
new file mode 100644
index 0000000..1290d88
--- /dev/null
+++ b/man/add_select_script.Rd
@@ -0,0 +1,12 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{add_select_script}
+\alias{add_select_script}
+\title{Selecting for Leaflet}
+\usage{
+add_select_script(lf, styleFalse, styleTrue, ns = "")
+}
+\description{
+Taken from the interals of the \link{mapedit} package
+}
+\keyword{internal}