创建加载进程

Question

有这样的命令

gsub("\s[A-Za-z](?= )", "", "I am a text r r o n n r and here", perl = TRUE)

由于执行需要一些时间，是否可以有一行来显示该过程在结束之前保持的性能级别？

Answer 1

您可以使用pbapply.

library("pbapply")
x <- replicate(1e4, "I am a text r r o n n r and here")  # generate 10,000 example strings
res <- pbapply(as.matrix(x), 1, function(x) gsub("\s[A-Za-z](?= )", "", x, perl=TRUE))
# |++++++++++++++++++++++++++++                      | 55% ~01s 

访问结果：

res[1]
# [1] "I am text and here" 
res[2]
...