remove UI date slider, fixes #4 (#20)

Co-authored-by: South <[email protected]>
Co-authored-by: Milan Malfait <[email protected]>

R/mod_daterange.R

@@ -7,7 +7,7 @@
 #' @importFrom shiny NS tagList
 mod_date_range_ui <- function(id) {
   ns <- NS(id)
-  # TODO: decide on which option to keep; dateRangeInput or sliderInput
+
   tagList(
     dateRangeInput(
       ns("date_range"), "Date range",
@@ -17,12 +17,6 @@ mod_date_range_ui <- function(id) {
       end = as.Date("2024-08-01"),
       startview = "decade",
       format = "yyyy-mm",
-    ),
-    sliderInput(ns("slider"), "Date range:",
-      min = as.Date("2019-04-01", "%Y-%m-%d"),
-      max = as.Date("2024-08-01", "%Y-%m-%d"),
-      value = c(as.Date("2019-04-01"), as.Date("2024-08-01")),
-      timeFormat = "%Y-%m"
     )
   )
 }