R Shiny：在执行 withProgress 时，在超时时弹出消息

Question

withProgress获取数据的示例：

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

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

是否可以添加超时和警告弹窗，提醒用户等待时间正常（即预期，如果说报告负载高），一切运行正常，没有必要，例如，重新启动应用程序？

我认为message =在运行 60s 后更改就足够了，但有可能吗？