используйте ключ API, чтобы получить геокод, но он сказал, что мой ключ экспериментировал - PullRequest
Новая
       15

используйте ключ API, чтобы получить геокод, но он сказал, что мой ключ экспериментировал

0 голосов
/ 21 ноября 2018

Я пытаюсь геокодировать пакетные адреса, используя пакет googleway, например "2105 Woodcrest Lane SW", но в нем говорится, что мой ключ API был опробован.но я знаю, что нам не нужно каждый раз обновлять ключ API, используя его.это изображение r и мой код здесь. введите описание изображения здесь проблема с подписями в URL? Нужно ли добавлять сюда свои подписи?но как?

DT<-data.frame(newdata$`level of care`, newdata$AddressLine1, stringsAsFactors = FALSE)
names(DT)<-c("level of care","Address")
write.table(DT)

DT$Address<-as.character(DT$Address)
mykey <- "api key"
set_key(key= mykey)
library(googleway)
lat = vector("numeric", length = nrow(DT))
lng = vector("numeric", length = nrow(DT))
#google_geocode(address = DT$Address[i], key=mykey)

for (i in 1:nrow(DT)) {
  coord = googleway::google_geocode(DT$Address[i], key=mykey)

  if (coord$status == "OK") {
    coord = googleway::geocode_coordinates(coord)
    lat[i] = coord$lat[1]  # sometimes returns multiple coordinates
    lng[i] = coord$lng[1]  # sometimes returns multiple coordinates
  } else {
    lat[i] = NA
    lng[i] = NA
  }

}

#add log lat to DT
DT$lat<-lat
DT$lng<-lng
...