r foreach：修改.combine创建相当于dplyr :: bind_rows并包括进度栏

Question

采用以下MWE：

df <- data.frame(id =seq(1,100,1),random = seq(2,200,2))

cl <- parallel::makeForkCluster(5) # do not change
doParallel::registerDoParallel(cl) # do not change


results <- foreach::foreach(i=unique(df$id),.combine =dplyr::bind_rows) %dopar% {
data <- df %>% dplyr::filter(id == i) %>% 
dplyr::mutate(result = random^2) # just a non-sense calculation
}

parallel::stopCluster(cl)

由于几个原因，我想坚持 makeForkCluster 启动并行后端，我也想获取一个data.frame而不是列表。

有两个问题：

1. 如何创建

comb <- function() 

与上述完全相同的结果，并使用 .combine ='comb'。我真的很挣扎着 .combine 。

2. 有什么方法可以在该MWE中包含一个简单的进度栏 - 我知道还有其他几个包/后端可以用于Inlcude Progress Bars，但是我想使用 MakeForkCluster 从软件包 >并行。