CODEWITHSUNDEEP
rloopsgoogle-maps-api-3jsonlitegoogle-distancematrix-api
Alex Soto
Alex Soto

Reputation: 315

R: JSONlite Loop Issue

I got all the " Google Map API Requests" in a row, but when I tried to loop to call and parse it. I am getting an error. If I don't use a loop and do it manually it works.

 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

The error I get is:

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

Upvotes: 1

Views: 507

Answers (2)

SymbolixAU
SymbolixAU

Reputation: 26258

As pointed out in my other answer to you, you can also use my googleway to do the work for you.

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"

Upvotes: 1

Alex Soto
Alex Soto

Reputation: 315

My API call was wrong because "New York" have space. I fixed using gsub("[[:space:]]", "+", a) , but also utils::URLencode() would have work.

Build the API call

 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)

My problem with the loop was very simple. I wasn't using lapply()

Now used RSJSONIO::fromJSON to send the call to Google Map API

 require("RJSONIO")
 if(verbose) cat(address,"\n")
 # Get json returns from Google
doc   <- lapply(api_call, RCurl::getURL)

Upvotes: 1

Related Questions