如何在mapdist函数中添加可选参数？

Question

我正在尝试使用R ggmap包输入可选参数，以获取考虑交通状况的出行时间，但是，我一直无法弄清楚该怎么做。

例如，以下代码在1844秒内产生结果

sessionInfo() 

这与将以下API URL直接插入Web浏览器相同（请注意，由于我用“ apikey”代替了我的真实API密钥，因此该代码将无法直接运行）

library(ggmap)
tripinfo <- mapdist('Chandler', 'Phoenix', 
                    mode = 'driving')
tripinfo$seconds

但是，如果我尝试使用ggmap mapdist函数添加可选参数，该参数应为我提供旅行时间（包括交通），那么我仍然会得到相同的1844秒：

https://maps.googleapis.com/maps/api/distancematrix/json?origins=Chandler&destinations=Phoenix&mode=driving&language=en-EN&key=apikey

相反，如果我直接在URL中输入其他参数，则会得到1700秒的“ duration_in_traffic”“值”（这是我想要的信息）。这是该网址：

tripinfo <- mapdist('Chandler', 'Phoenix', 
                    mode = 'driving', traffic_model='best_guess', departure_time='now')

有什么想法如何将可选参数添加到ggmap mapdist函数中（或者也许有另一种方法可以完全做到这一点，但仍使用R）？