1

すべての「Google Map API Requests」を連続して取得しましたが、ループして呼び出して解析しようとすると。エラーが発生しています。ループを使用せずに手動で実行すると、機能します。

 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) ------^
4

2 に答える 2

1

「ニューヨーク」にスペースがあるため、API 呼び出しが間違っていました。gsub("[[:space:]]", "+", a) を使用して修正しましたが、 utils::URLencode() も機能します。

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)

ループに関する私の問題は非常に単純でした。lapply() を使用していませんでした

RSJSONIO::fromJSON を使用して、Google Map API への呼び出しを送信するようになりました

 require("RJSONIO")
 if(verbose) cat(address,"\n")
 # Get json returns from Google
doc   <- lapply(api_call, RCurl::getURL)
于 2016-06-06T14:25:36.613 に答える
1

あなたへの他の回答で指摘したように、my を使用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"
于 2016-06-27T23:35:25.833 に答える