From a1ecb151ea7bc7368395ffd4ad8251eb65bc5c0a Mon Sep 17 00:00:00 2001 From: John Erickson Date: Wed, 9 Jun 2021 09:09:14 -0400 Subject: [PATCH] Fixed time default for Dashboard --- app.R | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/app.R b/app.R index d49aa4d..826cfcf 100755 --- 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")))),