fixed value sticking bug

wslh-data · Dec 16, 2022 · 93fd875 · 93fd875
1 parent 7fd2a22
commit 93fd875
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 30 deletions.
diff --git a/varGeo/app.R b/varGeo/app.R
@@ -71,21 +71,21 @@ server <- function(input, output, session) {
     getData()
   }) %>% bindCache(format(Sys.time(),"%Y-%m-%d"))
 
+  # update slider date range
+  updateSliderInput(session, "dateRange", 
+    min = floor_date(as.Date('2020-01-01',"%Y-%m-%d"), unit='week', week_start = 1),
+    max = floor_date(as.Date(format(Sys.Date(),"%Y-%m-%d")), unit='week', week_start = 1),
+    value = c(
+      floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-6 months")[2], unit='week', week_start = 1),
+      floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-2 weeks")[2], unit='week', week_start = 1)
+    )
+  )
+
   # Initialize map
   output$map <- renderLeaflet({
     # get data
     data <- reactiveGetData()
 
-    # update slider date range
-    updateSliderInput(session, "dateRange", 
-                      min = floor_date(as.Date('2020-01-01',"%Y-%m-%d"), unit='week', week_start = 1),
-                      max = floor_date(as.Date(format(Sys.Date(),"%Y-%m-%d")), unit='week', week_start = 1),
-                      value = c(
-                        floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-6 months")[2], unit='week', week_start = 1),
-                        floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-2 weeks")[2], unit='week', week_start = 1)
-                      )
-    )
-
     # subset by selected date
     data <- data[data$week >= min(input$dateRange) & data$week <= max(input$dateRange),]
 

diff --git a/variantSearch/app.R b/variantSearch/app.R
@@ -99,20 +99,20 @@ server <- function(input, output, session) {
     updateSelectizeInput(session,"selectVariant",selected=NULL,choices=selectionChoices,server=TRUE)
   })
 
+  # update slider date range
+  updateSliderInput(session, "dateRange", 
+                    min = floor_date(as.Date('2020-01-01',"%Y-%m-%d"), unit='week', week_start = 1),
+                    max = floor_date(as.Date(format(Sys.Date(),"%Y-%m-%d")), unit='week', week_start = 1),
+                    value = c(
+                      floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-6 months")[2], unit='week', week_start = 1),
+                      floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-2 weeks")[2], unit='week', week_start = 1)
+                    )
+  )
+
   output$totalSeq <- renderPlotly({
     # get data
     data <- reactiveGetData()
 
-    # update slider date range
-    updateSliderInput(session, "dateRange", 
-                      min = floor_date(as.Date('2020-01-01',"%Y-%m-%d"), unit='week', week_start = 1),
-                      max = floor_date(as.Date(format(Sys.Date(),"%Y-%m-%d")), unit='week', week_start = 1),
-                      value = c(
-                        floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-6 months")[2], unit='week', week_start = 1),
-                        floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-2 weeks")[2], unit='week', week_start = 1)
-                      )
-    )
-
     # add bar for each selected lineage
     fig <- plot_ly()
     inc_lineages <- input$selectVariant

diff --git a/variants/app.R b/variants/app.R
@@ -60,20 +60,20 @@ server <- function(input, output, session) {
     getData()
   }) %>% bindCache(format(Sys.time(),"%Y-%m-%d"))
 
+  # update slider date range
+  updateSliderInput(session, "dateRange", 
+                    min = floor_date(as.Date('2020-01-01',"%Y-%m-%d"), unit='week', week_start = 1),
+                    max = floor_date(as.Date(format(Sys.Date(),"%Y-%m-%d")), unit='week', week_start = 1),
+                    value = c(
+                      floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-6 months")[2], unit='week', week_start = 1),
+                      floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-2 weeks")[2], unit='week', week_start = 1)
+                    )
+  )
+
   output$totalSeq <- renderPlotly({
     # get data
     data <- reactiveGetData()
 
-    # update slider date range
-    updateSliderInput(session, "dateRange", 
-                      min = floor_date(as.Date('2020-01-01',"%Y-%m-%d"), unit='week', week_start = 1),
-                      max = floor_date(as.Date(format(Sys.Date(),"%Y-%m-%d")), unit='week', week_start = 1),
-                      value = c(
-                        floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-6 months")[2], unit='week', week_start = 1),
-                        floor_date(seq(as.Date(format(Sys.Date(),"%Y-%m-%d")), length = 2, by = "-2 weeks")[2], unit='week', week_start = 1)
-                      )
-                      )
-
     # add bar for each selected lineage
     fig <- plot_ly()
     inc_lineages <- unique(data$lineage)