R Shiny，延迟函数执行直到下一次迭代

Question

问题

我只想打印＆＃34; loading＆＃34;执行函数中其余代码之前的标签。这是代码：

observe({
  alert()
})

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

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

 someFunctionThatTakesVeryLong()

 alert ("Complete!")
}

结果

＆＃34;加载中＆＃34;永远不会打印，只有＃34;完成！＆＃34;是。如果＆＃34;完成！＆＃34;代码被删除，＆＃34;正在加载......＆＃34;仅在功能完成后打印

Answer 1

您可以尝试使用withprogress功能：

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

这应该在函数运行时创建警报样式窗口（或者如果style =“notification”，则为通知样式）。