Error related to check_container_alive when publish a shiny app to shinyapps.io

Posit Professional & Hosted Products shinyapps.io
1

I have posted my question on stackoverflow (r - Error related to check_container_alive when publish a shiny app to shinyapps.io - Stack Overflow). I am posting the same question here to see if the community has any insights.

I have designed the following code, using the shinyStore package to save the inputs using the local storage of the users' web browser. This works, but when I published this app to shinyapps.io, I received the following error message.

Error: Unhandled Exception: Child Task 958419875 error: Unhandled Exception: Timeout waiting for '_check_container_alive' after 0:00:30 Execution halted

I am wondering if it is something related to the shinyStore package as it is not from CRAN, but from github.

I would be grateful for any helps. Below is the R code.

### This script creates an example of using the shinyStore package

# Load packages
library(shiny)
library(shinyStore)

ui <- fluidPage(
  headerPanel("shinyStore Example"),
  sidebarLayout(
    sidebarPanel = sidebarPanel(
      initStore("store", "shinyStore-ex1"),
      textInput(inputId = "Text1", label = "Enter some texts")
    ),
    mainPanel = mainPanel(
      fluidRow(
        numericInput(inputId = "Number1", label = "Enter a number", value = NA),
        sliderInput(inputId = "Slider1", label = "Pick a number", min = 0, max = 100, value = 50),
        actionButton("save", "Save", icon("save")),
        actionButton("clear", "Clear", icon("stop"))
      )
    )
  )
)

server <- function(input, output, session) {
  observe({
    if (input$save <= 0){
      updateTextInput(session, inputId = "Text1", value = isolate(input$store)$Text1)
      updateNumericInput(session, inputId = "Number1", value = isolate(input$store)$Number1)
      updateSliderInput(session, inputId = "Slider1", value = isolate(input$store)$Slider1)
    }
    updateStore(session, name = "Text1", isolate(input$Text1))
    updateStore(session, name = "Number1", isolate(input$Number1))
    updateStore(session, name = "Slider1", isolate(input$Slider1))
  })
  
  observe({
    if (input$clear > 0){
      updateTextInput(session, inputId = "Text1", value = NA)
      updateNumericInput(session, inputId = "Number1", value = NA)
      updateSliderInput(session, inputId = "Slider1", value = 50)
      
      updateStore(session, name = "Text1", value = NA)
      updateStore(session, name = "Number1", value = NA)
      updateStore(session, name = "Slider1", value = 50)
    }
  })
}

shinyApp(ui, server)