bindEvent and bindCache not working in shinylive about shinylive HOT 1 OPEN

library(shiny)

ui <- fluidPage(
  sliderInput("x", "x", 1, 10, 5),
  sliderInput("y", "y", 1, 10, 5),
  actionButton("go", "Go"),
  div("x * y: "),
  verbatimTextOutput("txt")
)

server <- function(input, output) {
  r <- reactive({
    message("Doing expensive computation...")
    Sys.sleep(2)
    input$x * input$y
  }) |>
    bindCache(input$x, input$y, cache = "session") |>
    bindEvent(input$go)

  output$txt <- renderText(r())
}

shinyApp(ui, server)