R：JSONlite循环问题

Question

我连续获得了所有“Google Map API请求”，但是当我尝试循环调用并解析它时。我收到了一个错误。如果我不使用循环并手动完成它就可以工作。

 a <- c("1780 N Washington Ave Scranton PA 18509", "1858 Hunt Ave Bronx NY 10462", "140 N Warren St Trenton NJ 08608-1308")

#API Key need to be added to run:
 w <- c("https://maps.googleapis.com/maps/api/distancematrix/json?units=imperial&origins=19+East+34th+Street+New York+NY+10016&destinations=1780+N+Washington+Ave+Scranton+PA+18509&mode=transit&language=fr-FR&key=API_KEY_HERE",
   "https://maps.googleapis.com/maps/api/distancematrix/json?units=imperial&origins=19+East+34th+Street+New York+NY+10016&destinations=1858+Hunt+Ave+Bronx+NY+10462&mode=transit&language=fr-FR&key=API_KEY_HERE",
   "https://maps.googleapis.com/maps/api/distancematrix/json?units=imperial&origins=19+East+34th+Street+New York+NY+10016&destinations=140+N+Warren+St+Trenton+NJ+08608-1308&mode=transit&language=fr-FR&key=API_KEY_HERE")

df <- data.frame(a,w)

for (i in cpghq) {
  url <- df$w
  testdf <- jsonlite::fromJSON(url, simplifyDataFrame = TRUE)
  list <- unlist(testdf$rows)
  transit_time <- as.data.frame(t(as.data.frame(list)))
  cpghq$transit_time <- transit_time

我得到的错误是：

Error: lexical error: invalid char in json text.
                                   https://maps.googleapis.com/map
                 (right here) ------^ 

Answer 1

我的API调用错误，因为“纽约”有空间。我修复了使用gsub（“[[：space：]]”，“+”，a），但utils :: URLencode（）也可以使用。

构建API调用

$scope

我对循环的问题非常简单。我没有使用lapply（）

现在使用RSJSONIO :: fromJSON将调用发送到Google Map API

 a <- c("1780 N Washington Ave Scranton PA 18509", "1858 Hunt Ave Bronx NY 10462", "140 N Warren St Trenton NJ 08608-1308")

  fix_address <- gsub("[[:space:]]", "+", a)

  key <- "YOUR_GOOGLE_API_KEY_HERE"
  travel_mode <- "transit"

  root <- "https://maps.googleapis.com/maps/api/distancematrix/json
  units=imperial&origins="
  api_call <- paste0(root,"350+5th+Ave+New+York+NY+10118", 
                    "&destinations=",
                    fix_address,
                    "&mode=", 
                    travel_mode,
                    "&language=en-EN",
                    "&key=", key)

Answer 2

正如我other answer to you所指出的，您也可以使用我的googleway为您完成工作。

library(googleway)

key <- "your_api_key"

a <- c("1780 N Washington Ave Scranton PA 18509", 
       "1858 Hunt Ave Bronx NY 10462", 
       "140 N Warren St Trenton NJ 08608-1308")

google_distance(origins = "350 5th Ave New York NY 10188",
                destinations = as.list(a),
                mode = "transit",
                key = key, 
                simplify = T)


# $destination_addresses
# [1] "1780 N Washington Ave, Scranton, PA 18509, USA" "1858 Hunt Ave, Bronx, NY 10462, USA"           
# [3] "140 N Warren St, Trenton, NJ 08608, USA"       
# 
# $origin_addresses
# [1] "Empire State Building, 350 5th Ave, New York, NY 10118, USA"
# 
# $rows
# elements
# 1 ZERO_RESULTS, OK, OK, NA, 19.0 km, 95.8 km, NA, 18954, 95773, NA, 54 mins, 1 hour 44 mins, NA, 3242, 6260
# 
# $status
# [1] "OK"