如何跟踪R中单个函数的进度

Question

假设我有一个矩阵，如：

x <- matrix(rnorm(1000000), nrow = 500)

如何跟踪或显示单个功能的进度条：

dist(x)

我尝试了一个包pbapply::pblapply(x, dist)，但似乎它计算了每个值而不是矩阵的dist。

Answer 1

我发现它可以通过以下方式实现：

pbapply::pblapply(list(x), dist)[[1]]

但这可能不是最好的方式。