如何在 shiny 中的反应式服务器 function 中调用 renderUI function？

Question

我创建了一个 shiny 应用程序，其中包含一个名为 missing() 的响应式服务器 function。 在这个 function 内部，调用私有 API 服务器并下载数据。 这样做的一个问题是，有时呼叫不是 100% 执行并且超时。 此调用使用的 package 会在控制台中打印一条长错误消息，但在服务器上使用 shiny 应用程序的人无法看到此错误消息，因此不知道他们需要再次尝试调用。

话虽如此，我想在 shiny 应用程序的 ui 中打印一条错误消息，告诉用户他们需要再试一次。 我可以想到两个可以让用户知道问题的选项。

(1) 如果在控制台打印错误信息，我可以将它推送到 UI。

(2) 如果包含下载数据的变量存在，则意味着数据已正确下载，然后在 UI 中打印一条消息，让用户知道没有问题，如果变量不存在，它也会这样做当下载不起作用时。 （或仅在出现问题时打印）。

我不知道该怎么做。 下面是包含下载数据的行的代码。 这是最小的，因为正在使用私有 package，但实际上不需要任何其他信息不在这几行中。

missing <- reactive({

         dat_all <- loadByProduct(dpID=unlist(str_split(dpID,'SITE.'))[2],startdate = startDate,enddate = endDate,check.size = F)

})

所以，如果我们 go 与（1），那么这段代码运行后，它会检查控制台是否打印错误消息（错误消息超长，所以我想修改消息推送到用户界面）。 如果我们用 (2) go，那么它会做一个

if(exists('dat_all'))

检查该行之后，如果FALSE则将消息推送到 UI。

我不确定是否可以在另一个反应式 function 内部调用 renderUI function，这就是为什么我不知道该怎么做。 我知道如果 (2) 最终为FALSE ，我可以在控制台中打印一条消息，但我不知道如何让它出现在 UI 中。

谢谢你的帮助！！