show scheduled time with local TZ

daroczig · daroczig · commit f628ec6988fb · 2023-04-23T12:44:17.000+02:00
diff --git a/apps/countdown/server.R b/apps/countdown/server.R
@@ -13,6 +13,12 @@ server <- function(input, output) {
         ## as there's no external dependency triggering changes here (e.g. an input change)
         ## that would automatically update this object to reactive
         invalidateLater(250)
-        as.character(round(as.period(schedule - Sys.time())))
+        color <- ifelse(schedule > Sys.time(), 'black', 'red')
+        as.character(span(
+            round(as.period(abs(schedule - Sys.time()))),
+            style = paste('color', color, sep = ':')))
+    })
+    output$start <- renderText({
+        paste('at', schedule, Sys.timezone())
     })
 }
diff --git a/apps/countdown/ui.R b/apps/countdown/ui.R
@@ -11,7 +11,9 @@ ui <- basicPage(
     div(
         h1(uiOutput('title')),
         h2(uiOutput('subtitle')),
+        h3('starts in'),
         h1(uiOutput('countdown')),
+        h4(uiOutput('start')),
         class = 'center')
 
 )
