ShinyTime not compatible with Quarto

[andrewmacd]

No matter how much I tried, I couldn't seem to get the ShinyTime widget to work with Quarto. Perhaps I'm overlooking something but even this minimum working example wouldn't work for me. The widget renders successfully but the server never receives the input and therefore no text is displayed on the Shiny page.

---
title: "MWE"
format: html
server: shiny
---

```{r}
#| context: setup

library(shiny)
library(shinyTime)
```

# Minimal example

```{r}
timeInput("total_time", "Total daily sunlight: ")

textOutput("text1")
```

```{r}
#| context: server

output$text1 <- renderText({
 strftime(input$total_time, "%T")
})
```