mv month-day sliders to map for rain, ocean-temp like already for air…

…-temp
tbep-tech · Nov 20, 2024 · f555a42 · f555a42
1 parent f834b96
commit f555a42
Showing 1 changed file with 32 additions and 20 deletions.
diff --git 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(