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

Question

我有这个闪亮的应用程序，它的逻辑非常清晰。每当我按下 Hit 按钮时，它都会打印 1000 hi。问题是，如果我在打印时关闭应用程序窗口，它会崩溃。我该如何解决？

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)

标签： rshiny

Answer 1

它对你有用吗？

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