使用 sapply 返回行号

Question

我正在尝试开始摆脱 R 中的循环，但无法弄清楚如何返回有关 sapply 函数进度的信息。例如，如果我想处理一个向量并打印出我正在处理的行，请使用我编写的循环:

vec = c(1:10)
out = NULL
for (i in 1:length(vec)){
    print(paste("Processing item ",i,sep=""))
    y = vec[i]^2
    out = c(out,y)
}

我怎样才能用 sapply 做同样的事情？这是我的代码。

func = function(x) {
    #print (paste("Processing item ",x,sep="")) ## This is where I want to print out the row number being processed.
    x^2
}

out = sapply(vec,func)

感谢您提供任何信息。

Answer 1

我建议使用 pbapply “向‘*apply’函数添加进度条”包

安装软件包后，运行 example("pbsapply") 查看此函数提供的示例。