Merge branch 'development'

dashboardShiny/app.R

@@ -44,25 +44,6 @@ ui <- bootstrapPage(
   
   ## HTML Tags
   tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
-  tags$style(HTML("
-    @media screen and (max-width: 600px) {
-      #graph {
-        width: 100%;
-        height: 300px; /* Adjust height as needed */
-      }
-
-      /* Add additional styles for smaller screens */
-    }
-
-    @media screen and (min-width: 601px) {
-      #graph {
-        width: 100%;
-        height: 500px; /* Adjust height as needed */
-      }
-
-      /* Add additional styles for larger screens */
-    }
-  ")),
   
   ## Leaflet Map
   ### This is supposed to cover 100% of the page
@@ -89,28 +70,12 @@ ui <- bootstrapPage(
     #     yes = tags$i(class = "fa fa-circle", style = "color: steelblue"),
     #     no = tags$i(class = "fa fa-circle-o", style = "color: steelblue"))),
     
-    # ### Date Slider ####
-    # sliderInput(
-    #   inputId = "date_range",
-    #   label = h4("Select a date"),
-    #   min = as.Date("2016-04-01","%Y-%m-%d"),
-    #   max = as.Date("2023-03-31","%Y-%m-%d"),
-    #   value = c(as.Date("2020-01-01", "%Y-%m-%d"),
-    #             as.Date("2020-04-30", "%Y-%m-%d")),
-    #   timeFormat = "%Y-%m-%d"),
-    
-    #### Point Picker ####
-    # selectInput(
-    #   inputId = "point_id",
-    #   label = h4("Select a location"),
-    #   choices = NULL, selected = NULL),
-    
     #### Date Range Picker ####
     dateRangeInput(
       inputId = "date_range",
       label = h4("Select a date range"),
-      min = as.Date("2016-04-01"),
-      max = as.Date("2023-03-31"),
+      min = as.Date("2011-04-01"),
+      max = as.Date("2023-11-30"),
       start = as.Date("2016-05-01"),
       end = as.Date("2016-08-31"),
       format = "yyyy-mm-dd",