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])
}
效果如下: