time picker for the scheduled time

daroczig · daroczig · commit b5bfb6525960 · 2023-04-23T12:57:01.000+02:00
diff --git a/apps/countdown/server.R b/apps/countdown/server.R
@@ -1,4 +1,5 @@
 library(shiny)
+library(shinyWidgets)
 library(lubridate)
 
 server <- function(input, output) {
@@ -30,7 +31,7 @@ server <- function(input, output) {
             modalDialog(
                 textInput("title", "Title", value = settings$title),
                 textInput("subtitle", "Subtitle", value = settings$subtitle),
-                textInput("schedule", "Time", value = settings$schedule),
+                airDatepickerInput("schedule", "Time", value = settings$schedule, timepicker = TRUE),
                 footer = tagList(actionButton('settings_update', 'Update'))
             )
         )

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`library(shiny)`
	`2`	`+library(shinyWidgets)`
`2`	`3`	`library(lubridate)`
`3`	`4`
`4`	`5`	`server <- function(input, output) {`
`@@ -30,7 +31,7 @@ server <- function(input, output) {`
`30`	`31`	`modalDialog(`
`31`	`32`	`textInput("title", "Title", value = settings$title),`
`32`	`33`	`textInput("subtitle", "Subtitle", value = settings$subtitle),`
`33`		`- textInput("schedule", "Time", value = settings$schedule),`
	`34`	`+ airDatepickerInput("schedule", "Time", value = settings$schedule, timepicker = TRUE),`
`34`	`35`	`footer = tagList(actionButton('settings_update', 'Update'))`
`35`	`36`	`)`
`36`	`37`	`)`