Fixed time default for Dashboard

DataINCITE · Jun 9, 2021 · a1ecb151ea7bc7368395ffd4ad8251eb65bc5c0a · a1ecb15
1 parent 107a158
commit a1ecb151ea7bc7368395ffd4ad8251eb65bc5c0a
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/app.R b/app.R
@@ -114,8 +114,10 @@ ui <- dashboardPage(skin = "black", title = "COVID SafeCampus",
                                            tags$style(type = "text/css", 
                                                       ".irs-grid-text:nth-last-child(1) {opacity: 0}"),
                                            div(style="margin-left:0px; width: 350px;",
-                                               sliderInput("time", "Select a time period", min = as_datetime(hms::parse_hm("0:00")), 
-                                                           max = as_datetime(hms::parse_hm("23:30")),value = c(now_time-hours(2),now_time),
+                                               sliderInput("time", "Select a time period", 
+                                                           min = as_datetime(hms::parse_hm("0:00")), 
+                                                           max = as_datetime(hms::parse_hm("23:30")),
+                                                           value = c(now_time-hours(2),now_time),
                                                            timeFormat = "%H:%M",timezone = "GMT",step = 30*60)))))),
                                 shinyjs::hidden(
                                   tags$div(id = "more_tabs",
@@ -175,8 +177,9 @@ ui <- dashboardPage(skin = "black", title = "COVID SafeCampus",
                                                                "Select a time range",
                                                                min = as_datetime(hms::parse_hm("0:00")), 
                                                                max = as_datetime(hms::parse_hm("23:30")), 
-                                                               value = c(as_datetime(hms::parse_hm("14:00:00")),
-                                                                         as_datetime(hms::parse_hm("16:00:00"))),
+                                                               # value = c(as_datetime(hms::parse_hm("14:00:00")),
+                                                               #           as_datetime(hms::parse_hm("16:00:00"))),
+                                                               value = c(now_time-hours(2),now_time),
                                                                timeFormat = "%H:%M",timezone = "GMT",step = 30*60)))),
                                 fluidRow(column(9,br(),fluidRow(column(12, div(uiOutput("discrete_plot3", height = "100%")), downloadButton("downloadDiscreteplot3", "Download Graph"))),
                                            br(),fluidRow(column(12, div(uiOutput("discrete_plot1", height = "100%")), downloadButton("downloadDiscreteplot1", "Download Graph")))),