我有一个函数,我想应用到一个大的数字向量: if(sum(n/1:n==n%/%1:n)==2){TRUE}但是,当我尝试使用progress包使用purrr::walk实现一个时,估计完成的时间是2小时!我从包的的“迭代器”部分获得了语法。progress_bar$new(format = "computing [:bar] :percent time l
我最近把for(i in 1:100){foo(i,bar)}写成了脚本中的最后一行。在本例中,foo的最后一行是对print的调用,我肯定不希望看到foo的返回值。我只想要印刷品。这对于循环是有效的,但是在R中使用这样的循环感觉是不一致的,是否还有更多的惯用方法来实现这一点呢?foo必须在被调用之前分别使用每个i in 1:100,这样foo(1:100,bar)就不能工作。sapply(1:100,function(x) foo(x,bar))似乎