Add instructions, re-order coords map UI pieces

mbarneytu · Oct 31, 2022 · 1255209 · 1255209
1 parent 202efb3
commit 1255209
Showing 1 changed file with 31 additions and 23 deletions.
diff --git 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"))
     )
   )
 }