小编Abd*_*han的帖子

我可以使用以下代码运行一段代码5或10秒:

period <- 10  ## minimum time (in seconds) that the loop should run for
tm <- Sys.time()  ## starting data & time
while(Sys.time() - tm < period) print(Sys.time())

代码运行良好5或10秒.但是当我将周期值替换为60以使其运行一分钟时,代码永远不会停止.怎么了？

我正在制作一个闪亮的应用程序,其中,在单击actionButton时,使用插入符包训练模型.由于此培训需要时间 - 大约4-5分钟 - 我想在App中显示加载标志或加载GIF,其中在训练模型后显示结果.否则,用户将不知道发生了什么或何时训练模型.

谢谢