From f555a42c9316645806cbc6b391e8398791fab62b Mon Sep 17 00:00:00 2001
From: Ben Best <ben@ecoquants.com>
Date: Wed, 20 Nov 2024 17:49:01 -0500
Subject: [PATCH] mv month-day sliders to map for rain, ocean-temp like already
 for air-temp

---
 app/ui.R | 52 ++++++++++++++++++++++++++++++++--------------------
 1 file changed, 32 insertions(+), 20 deletions(-)

diff --git a/app/ui.R b/app/ui.R
index 021b7ac..454858c 100644
--- a/app/ui.R
+++ b/app/ui.R
@@ -174,15 +174,6 @@ page_navbar(
               title = "Settings",
               bs_icon("gear"),
 
-              sliderInput(
-                "sld_r_md",
-                "Month and day of year",
-                min        = as.Date(glue("{year(now_prism)}-01-01")),
-                value      = now_prism,
-                max        = as.Date(glue("{year(now_prism)}-12-31")),
-                timeFormat = "%b %d",
-                animate    = T),
-
               sliderInput(
                 "sld_r_yrs_then",
                 "Year(s), Then",
@@ -203,7 +194,22 @@ page_navbar(
                 animate = T,
                 sep     = "")) ),
 
-          leafletOutput("map_rain") ) ),
+          leafletOutput("map_rain"),
+
+          absolutePanel(
+            id        = "pnl_r_md",
+            bottom    = "5%", left = "5%", right = "5%",
+            width     = "90%",
+
+            sliderInput(
+              "sld_r_md",
+              "Month and day of year",
+              min        = as.Date(glue("{year(now_prism)}-01-01")),
+              value      = now_prism,
+              max        = as.Date(glue("{year(now_prism)}-12-31")),
+              timeFormat = "%b %d",
+              animate    = T,
+              width     = "100%") ) ) ),
 
       # * Plot ----
       nav_panel(
@@ -286,15 +292,6 @@ page_navbar(
               placement = "right",
               bs_icon("gear"),
 
-              sliderInput(
-                "sld_o_md",
-                "Month and day of year",
-                min        = as.Date(glue("{year(now_prism)}-01-01")),
-                value      = now_prism,
-                max        = as.Date(glue("{year(now_prism)}-12-31")),
-                timeFormat = "%b %d",
-                animate    = T),
-
               sliderInput(
                 "sld_o_yrs_then",
                 "Year(s), Then",
@@ -315,7 +312,22 @@ page_navbar(
                 animate = T,
                 sep     = "")) ),
 
-          leafletOutput("map_sst") ) ),
+          leafletOutput("map_sst"),
+
+          absolutePanel(
+            id        = "pnl_o_md",
+            bottom    = "5%", left = "5%", right = "5%",
+            width     = "90%",
+
+            sliderInput(
+              "sld_o_md",
+              "Month and day of year",
+              min        = as.Date(glue("{year(now_prism)}-01-01")),
+              value      = now_prism,
+              max        = as.Date(glue("{year(now_prism)}-12-31")),
+              timeFormat = "%b %d",
+              animate    = T,
+              width     = "100%") ) ) ),
 
       # * Plot ----
       nav_panel(