Shinny R中模型培训的进度条

我正在制作一个闪亮的应用程序，在这个程序中，点击actionButton，就可以使用caret软件包训练一个模特。由于此培训需要时间（大约4-5分钟），因此我想显示一个进度条，该进度条随着模型的培训而进行

---

感谢要在闪亮的应用程序中显示进度条，您需要在

服务器中使用
with progress
功能，如下所示：

withProgress(message = "Model is Training", value = 1.0, {             
   ## Your code
})

因此，您将代码放在这个函数中，当代码运行时，它将显示消息“Model is training”<函数中的代码>值

是应用程序中的进度指示器（1.0表示100%）。您可以根据计算设置该值。例如，您可以设置

value=min+（max-min）*0.1

。它不需要完全像这样。任何对你有用的依赖于代码的东西。设置

value=1.0

不会有什么坏处，因为它会显示进度条，在您的案例中显示有意义且相关的消息“Model is Training”

---

要获得更多信息，请访问此链接：

如果对您有帮助，请接受答案。亲爱的@Santosh，这似乎不起作用，我正在尝试运行此代码：-ObserveeEvent（输入$trainModelButton，{打印（“培训开始”）with Progress（“模型正在培训”，值=1.0，{train（demand~temp，dataProcessed_Internal'rf'，ntree=50）}）你为什么写

print（“培训开始”）

在代码中。闪亮的应用程序不使用

打印

功能打印。您需要使用

renderText

。是否有任何错误？因为显示进度条很简单。我已经实现了数千次。您只需按照我在回答中的建议，将代码放入

带进度的
功能中。
observeEvent（输入$trainModelButton，{withProgress（“模型正在培训”，值=1.0，{train（需求~temp，数据处理）\内部，'rf'，ntree=50}}）
这应该行得通。如果有问题，必须是观察事件和你的列车模型。兄弟，恕我直言，我的问题不仅仅是显示进度条，你确实正确地分享了进度条。我的问题是让进度条进步（前进）随着模型的训练。使用您的解决方案，进度条立即完成（例如，模型仍在训练5分钟）…您能对此发表意见吗！在我的回答中，我谈到了
value=min+（max-min）*0.1
使进度条向前移动。但是，
值
实际上取决于您的代码。
值
没有全局方程。您可以将一些值设置为最小值和最大值，或者在培训模型中为
值
设置一个循环，使进度条在培训模型计算时向前移动。如我说，这个等式是完全取决于你的代码。