在R Shiny中停止进程

Question

我有一个R闪亮的应用程序，其中包含长进程。

我希望可以选择在按下一些actionButton之后停止进程。

那是我的代码：

library(shiny)

shinyApp(
  ui = fluidPage(
    actionButton("start","Start"),
    actionButton("stop","Stop")
  ),
  server = function(input, output, session) {

    observeEvent(input$start, {
      i<-0
      while(TRUE){
        i<-i+1
        Sys.sleep(1)
        if(input$stop>0)
          return()
      }
    })
  }
)

当处于observeEvent输入中时，$$$停止更新其值。

有办法吗？

谢谢