Merge pull request #9 from NorwegianVeterinaryInstitute/main-trish

Add time widget
NorwegianVeterinaryInstitute · Sep 26, 2024 · 0dda61a · 0dda61a
2 parents c4b0d98 + 86890a0
commit 0dda61a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 7 deletions.
diff --git a/app.R b/app.R
@@ -2,6 +2,9 @@ library(shiny)
 library(bslib)
 library(pins)
 library(DT)
+library(dplyr)
+library(shinyjs)
+library(shinyTime)
 
 # Source the modules
 source('mod_sidebar.R')

diff --git a/mod_mainPanel.R b/mod_mainPanel.R
@@ -1,6 +1,3 @@
-library(shiny)
-library(DT)
-
 # Main Panel UI Module
 mainPanelUI <- function(id) {
   ns <- NS(id)

diff --git a/mod_sidebar.R b/mod_sidebar.R
@@ -1,12 +1,10 @@
-library(shiny)
-
 # Sidebar UI Module
 sidebarUI <- function(id) {
   ns <- NS(id)
 
   tagList(
     dateInput(ns('date'), 'Select Date:', value = Sys.Date()),
-    selectInput(ns('hour'), 'Select Hour:', choices = 9:15),
+    timeInput(ns("hour"), "Time:", value = strptime("12:00:00", "%T"), minute.steps = 10),
     selectInput(
       ns('room'),
       'Select Room:',
@@ -101,7 +99,7 @@ sidebarServer <- function(id, board) {
 
       # Clear the inputs after submission
       updateDateInput(session, "date", value = Sys.Date())
-      updateSelectInput(session, "hour", selected = NULL)
+      updateTimeInput(session, "hour", value = strptime("12:00:00", "%T"))
       updateSelectInput(session, "room", selected = NULL)
       updateSelectInput(session, "section", selected = NULL)
       updateTextInput(session, "person", value = "")