R进度条实现

R进度条实现

发现一个包progress，可以在服务器中R实现进度条。包的地址：https://github.com/r-lib/progress

install.packages("progress")
library(progress)
pb <- progress_bar$new(total = pp) ## pp是循环次数
for (i in 1:pp) {
      #此处是循环内容
      pb$tick()
      Sys.sleep(1 / 100)
}

写了个小函数，实现一下：

SNP.proxy = c()
pb <- progress_bar$new(total = dim(snp.miss)[1])
for(i in 1:dim(snp.miss)[1]){
  try({	pos.temp = exp$POS -snp.miss$POS[i]
	index.1 = which(abs(pos.temp) < 500000)
	temp = ax0[index.1,]
	temp = temp[order(temp$P),][1:100,]	
	index.2 = out$SNP[which(out$SNP%in%(temp$SNP))]
	temp.2 = temp[which(temp$SNP%in%index.2),]
	temp.3 = temp.2[which(temp.2$P==min(temp.2$P)),]
	SNP.proxy = c(SNP.proxy,temp.3$SNP)
	})
	pb$tick()
	Sys.sleep(1 / dim(snp.miss)[1])
	}

效果如下：