R Shiny：在进行Progress时，在超时时弹出一条消息

Question

withProgress用于获取数据的示例：

 withProgress({
     data <- dbGetQuery(con, query)
 }, value = 1, message = 'Fetching data...')

假设这通常会相当快地返回数据。但是，在某些情况下，当数据库过载时，查询可能会堆积在队列中，这将导致结果等待时间异常长。

是否可以添加超时和警告弹出窗口，提醒用户等待时间是正常的（即，预期的，如果报告的负载很高），则一切运行正常，无需，例如，重新启动应用程序？

我认为60秒钟后更改message =就足够了，但是有可能吗？