Subskripte außerhalb der Grenzen für umgekehrte Geokodierungsschleife in R

Question

Ich versuche, Geocode einen Datensatz mit dem Google API-Schlüssel umzukehren. Ich schaffte es, den Code auszuführen und die gewünschten Ergebnisse für eine kleine Probe von 10, aber es gibt einen Fehler

Error in rgc$results[[1]] : subscript out of bounds 

ich mit dem folgenden Code, um die api Schlüssel zur Integration verwaltet:

` revgx <- mapply(function(latlng, api_key){ 


url= paste("https://maps.googleapis.com/maps/api/geocode/json?","latlng=",latlng,"&key=",sep="") 

rgc <- fromJSON(paste(readLines(url), collapse = '')) 

rgc <- rgc$results[[1]] 


with(rgc,{rgcdf <<- data.frame(
address = formatted_address 
)}) 
for(k in seq_along(rgc$address_components)){ 
rgcdf <- cbind(rgcdf, rgc$address_components[[k]]$long_name) 
} 
names(rgcdf) <- c('address', sapply(rgc$address_components, function(l)  l$types[1])) 

# return 'more' output 
rgcdf 
}, 
y1$latlng)` 

Ich habe versucht, das gleiche mit der Einbeziehung von XML zu verwenden, aber ohne Erfolg. Bitte geben Sie an, ob Änderungen am Code erforderlich sind.

Answer 1

Ich habe Ihren Code getestet und es funktioniert für mich. Aber Sie testen nicht den Status. Wenn latlng falsch ist, gibt es "ZERO RESULTS" als Status zurück (und keine rgc $ -Ergebnisse existieren). Hier ist der Code, den ich getestet habe.

rev <- function(latlng, api_key) { 

url= url(paste("https://maps.googleapis.com/maps/api/geocode/json?","latlng=",latlng,"&key=",sep="")) 
rgc <- fromJSON(paste(readLines(url), collapse = '')) 
close(url) 

if (rgc["status"] == "OK") { 
    rgc <- rgc$results[[1]] 
    with(rgc, { 
     rgcdf <<- data.frame(address = formatted_address) 
    }) 
    for (k in seq_along(rgc$address_components)) { 
     rgcdf <- cbind(rgcdf, rgc$address_components[[k]]$long_name) 
    } 
    names(rgcdf) <- c("address", sapply(rgc$address_components, function(l) l$types[1])) 
    rgcdf["valid_latlong"] <- TRUE 
    rgcdf 
} else { 
    rgcdf <- c(valid_latlong=FALSE) 
} 
} 

Getestet habe ich diese mit:

rev("12.9756300,77.6066230") 

Gibst du in diesem Format latlng? Oder c (9756300,77.6066230). Dann brauchen Sie

latlng <- gsub(' ','%20', paste(latlng, collapse=",")) 

auch zu tun, haben Sie nicht integriert api Schlüssel im Code-Snippet, das Ihnen geteilt. Übergeben Sie api_key, um param abzufragen.