将 Googleway 输出转换为数据框时出错

Question

我一直在使用来自a previous question 答案的代码并取得了巨大成功。昨晚，在多次成功使用代码后，我在尝试执行代码的第二部分以访问列表结果时开始收到错误消息。未创建 lst_elements 列表。这是我的代码。

# Run Google Distance API ALl Transit
res <- lapply(1:nrow(Lankenau), function(x) {
  google_distance(origins = c(Lankenau[x,"LAT"],Lankenau[x,"LONG"]),
                  destinations = c(Lankenau[x,"O_Lat"],Lankenau[x,"O_Long"]),
                  mode = "transit",arrival_time = time)})

lst_elements <- lapply(res, function(x){
   stats::setNames(
     cbind(
       distance_elements(x)[[1]][['duration']],
       distance_elements(x)[[1]][['distance']]
     )
     , c("duration_text", "duration_value", "distance_text", "distance_value")
   )
 })

收到的错误

Error in names(object) <- nm : attempt to set an attribute on NULL 
3.
stats::setNames(cbind(distance_elements(x)[[1]][["duration"]], 
    distance_elements(x)[[1]][["distance"]]), c("duration_text", 
    "duration_value", "distance_text", "distance_value")) 
2.
FUN(X[[i]], ...) 
1.
lapply(res, function(x) {
    stats::setNames(cbind(distance_elements(x)[[1]][["duration"]], 
        distance_elements(x)[[1]][["distance"]]), c("duration_text", 
        "duration_value", "distance_text", "distance_value")) ... 

任何提示都会很棒！我不确定发生了什么。完全相同的好处仍然适用于不同的数据框。这是否表明错误源于 data.frame 本身？

Answer 1

它可能是特定于数据的，因为google_distance() 调用的输入可能缺失或错误，其中NULL 在您的res 列表中的相应位置返回。

考虑包装 tryCatch 以返回这些问题元素的单行数据框 NA。如果所有元素都以单行 NA 出现，则 google_distance() 的所有运行都失败。

lst_elements <- lapply(res, function(x){
   tryCatch(setNames(cbind(distance_elements(x)[[1]][['duration']],
                           distance_elements(x)[[1]][['distance']]
                     ), c("duration_text", "duration_value", 
                          "distance_text", "distance_value")
                     ),
            error = function(e) 
                        data.frame(duration_text=NA, duration_value=NA, 
                                   distance_text=NA, distance_value=NA)
            )      
})

final_df <- do.call(rbind, lst_elements)