如何在没有for循环的情况下打印R函数的进度条？

问题描述

我有一个函数需要很长时间才能运行（涉及大型数据集中的许多计算）。我想包括一个进度条，看看它是否取得进展。我的函数没有 for 循环；如果函数中没有 for 循环，我不明白如何添加进度条。

我尝试添加一个 for 循环来让进度条工作，但它只是打印进度条而不进行计算（我相信），即当我打印 result 时，我得到 NULL：

install.packages("svMisc")
require("svMisc")

# Test function
funct<-function(a,b,c)for (i in 0:101){
  progress(i,progress.bar=TRUE)
  Sys.sleep(0.01)
  x<-a*a
  y<-x+b
  z<-y/2
  if (i == 101) message("Done!")
}

result <- funct(-2.6e+70,-2.5e+121,6)
result

请随意提出除 svMisc 以外的其他建议。

解决方法

一般来说，报告函数的进度需要一个循环（或可能是多行代码），正如您在示例中所述。您的示例正在执行计算，只是不返回它们 - 请记住，除非有显式 return() 语句，否则 R 函数返回最后一次计算的值。在这种情况下，message() 函数返回 NULL。

对下面的代码稍作修改，演示了进度条的预期行为，后跟 result 具有计算值。

install.packages("svMisc")
require("svMisc")

# Test function
funct<-function(a,b,c){
  for (i in 0:101){
    progress(i,progress.bar=TRUE)
    Sys.sleep(0.01)
    x<-a*a
    y<-x+b
    z<-y/2
    if (i == 101) message("Done!")
  }
  return(z)
}

result <- funct(-2.6e+70,-2.5e+121,6)

#           0%---------25%---------50%---------75%--------100%
# Progress: ||||||||||||||||||||||||||||||||||||||||||||||||||
# Done!

result

# [1] 3.38e+140

function function progress r r