我想监控我的mapply函数的进度。数据由2个列表组成，有一个函数有2个参数。
如果我用一个参数为1的函数做类似的事情，我可以用ldply代替lapply。（我想用rbind.fill把输出转换成一个data.frame）
如果我想对mdply做同样的事情，它不能工作，因为mdply中的函数需要从数据框或数组的列中获取值，Mapply需要列表作为输入。
这些plyr apply函数非常方便，不仅因为我可以以data.frame的形式获得输出，还因为我可以使用进度条。
我知道有pbapply包，但是没有mapply版本，有txtProgressBar函数，但是我不知道如何在mapply中使用这个函数。
我尝试创建一个可重复的示例（运行大约需要30秒）
我猜这个例子很糟糕。我的l1是一个抓取的网站列表（rvest：：read_html），我不能将其作为 Dataframe 发送到mdply。列表确实需要是列表。

mdply <- plyr::mdply

l1 <- as.list(rep("a", 2*10^6+1))
l2 <- as.list(rnorm(-10^6:10^6))

my_func <- function(x, y) {

ab <- paste(x, "b", sep = "_")
ab2 <- paste0(ab, exp(y), sep = "__")

return(ab2)

}

mapply(my_func, x = l1, y = l2)

完全不起作用

mdply(l1, l2, my_func, .progress='text')

Error in do.call(flat, c(args, list(...))) : 'what' must be a function or character string