From 125520907385c7f11ab77280876ceb653d95fba0 Mon Sep 17 00:00:00 2001
From: mbarneytu <mbarney@tu.org>
Date: Mon, 31 Oct 2022 12:45:20 -0600
Subject: [PATCH] Add instructions, re-order coords map UI pieces

---
 R/siteCoords.R | 54 +++++++++++++++++++++++++++++---------------------
 1 file changed, 31 insertions(+), 23 deletions(-)

diff --git a/R/siteCoords.R b/R/siteCoords.R
index 9894934..39f810c 100644
--- a/R/siteCoords.R
+++ b/R/siteCoords.R
@@ -6,46 +6,54 @@ siteCoordsUI <- function(id) {
   tagList(
     useShinyFeedback(),
     fluidRow(
-      column(width = 4,
-             h4("Zoom to coordinates:")
-      ),
-      column(width = 4,
-             numericInput(NS(id, "inLat"), label = "Lat", value = "", step = "any")
-      ),
-      column(width = 4,
-             numericInput(NS(id, "inLong"), label = "Long", value = "", step = "any")
-      )
-    ),
-    fluidRow(
-
       column(width = 12,
-             actionButton(NS(id, "zoomBtn"), label = "Zoom", class = "btn-info"))
-    ),
-
-    br(),
-    fluidRow(
-      column(width = 12,
-             leafletOutput(NS(id, "map")))
+             h6(
+             "Pan and zoom the map so that your site is centered, then 
+             click 'Place Site at Map Center'. Alternatively, you may enter 
+             coordinates below the map, then click 'Zoom to Lat/Long' 
+             to zoom and the map at those coordinates. You can reposition 
+             the site by moving the map and re-clicking 'Place Site at 
+             Map Center'."
+             )
+      )
     ),
-    
-    br(),
     fluidRow(
       column(width = 5, 
              actionButton(NS(id, "pinBtn"), label = "Place Site at Map Center",
                           class = "btn-info")
       ),
       column(width = 1, 
-             p(tags$b("*Pin Lat:"))
+             p(tags$b("*Site Lat:"))
       ),
       column(width = 2,
              textOutput(NS(id, "pinLat"))
       ),
       column(width = 1,
-             p(tags$b("*Pin Long:"))
+             p(tags$b("*Site Long:"))
       ),
       column(width = 2,
              textOutput(NS(id, "pinLong"))
       )
+    ),
+    
+
+    br(),
+    fluidRow(
+      column(width = 12,
+             leafletOutput(NS(id, "map")))
+    ),
+    
+    br(),
+    fluidRow(
+      column(width = 4,
+             numericInput(NS(id, "inLat"), label = "Lat", value = "", step = "any")
+      ),
+      column(width = 4,
+             numericInput(NS(id, "inLong"), label = "Long", value = "", step = "any")
+      ),
+      column(width = 4,
+             actionButton(NS(id, "zoomBtn"), label = "Zoom to Lat/Long", 
+                          class = "btn-info"))
     )
   )
 }