[R閃亮，直到明年itteration

Question

問題

只要我想執行的代碼中的函數，其餘之前打印「加載」到一個標籤延遲功能的執行。下面是代碼：

observe({ 
    alert() 
}) 

alert <- function (t=''){ 
    output$text <- renderText(t) 
} 

observeEvent(input$analyse , { 
alert ("Loading...") 

someFunctionThatTakesVeryLong() 

alert ("Complete!") 
} 

結果

「載入中...」 從不打印，只有 「完成！」是。如果「完成！」代碼被刪除，「正在加載...」時，纔會打印功能完成後

Answer 1

您可以嘗試使用withprogress功能：

withProgress(someFunctionThatTakesVeryLong(), message="Loading", style="old") 

這應該創建一個警報樣式窗口（或通知的風格，如果風格=「通知」），而功能正在運行。