当我在应用程序运行时尝试关闭闪亮的应用程序窗口时出错

Question

我有这个闪亮的应用程序，它的逻辑非常清晰。每当我按下点击按钮它打印1000嗨。问题是，如果我去打印它关闭应用程序窗口崩溃。如何我解决了吗？

ui <- fluidPage(
  titlePanel("Data"),
  sidebarLayout(
    sidebarPanel(
      actionButton("h","hit")
    ),
    mainPanel()
  )
)
server <- function(input, output) {
   observeEvent(input$h,{
      for(i in 1:1000){
        print("hi")
      )
   })
}
shinyApp(ui = ui, server = server)

Answer 1

这对你有用吗？

tryCatch({shinyApp(ui = ui, server = server)})