如何停止暫停執行在observeEvent（）閃亮[R

Question

進出口新的閃亮[R ...這裏是我的代碼...

ui.R

library(shiny) 
fluidPage(mainPanel(actionButton("run","RUN"))) 

server.R

function(input, output) { 
    observeEvent(input$run,{ 
       print("Start") 
       Sys.sleep(2) 
       print("End")}) 
} 

問題是...當我按控制檯之前打印前打印「結束」....它開始繼續執行observeEvent儘快之前observeEvent結束......有沒有什麼辦法可以停止管道的observeEvent隊列？ ??

我要的就是阻止用戶交互上的「運行」按鈕，功能已經在執行...

Answer 1

有點搜索後，我終於得到了解決....這解決了我的目的... 。

ui.R

library(shiny) 
library(shinyjs) 
fluidPage(shinyjs::useShinyjs(),mainPanel(actionButton("run","RUN"))) 

server.R

function(input, output) { 
    observeEvent(input$run,{ 
    shinyjs::disable("run") 
       print("Start") 
       Sys.sleep(2) 
       print("End") 
       shinyjs::enable("run")}) 
}