R加速Mapply功能，可查找两个邮政编码之间的旅行时间

Question

我正在使用gmapsdistance软件包来计算两个邮政编码之间的旅行时间。

似乎工作正常。邮政编码仍然存在几乎完全相同的错误，有时该功能无法输出正确的时间。

主要问题是，要在我正在使用的大小的数据集上运行该功能需要花费几个小时。

这是数据集的示例数据帧。

 library(gmapsdistance)

 df <- data.frame("ZIP_START" = c(95051, 94534, 60193, 94591, 94128, 94015, 94553, 10994, 95008), 
   "ZIP_END" = c(98053, 94128, 60666, 73344, 94128, 73344, 94128, "07105", 94128), 
   stringsAsFactors = FALSE)

df$travel_time <- mapply(gmapsdistance, df$ZIP_START, data$ZIP_END, mode = "driving", key = get.api.key(), traffic_model = "best_guess")

是否可以提高此功能的速度？我尝试查看mclapply软件包，但在我的R Studio版本中似乎不可用。

最初，我编写了一个for循环，但是运行了超过10个小时，所以我认为mapply方法会更快，但是仍然需要大量时间。

任何建议都值得赞赏。

如果还有其他问题，请告诉我。

谢谢。