0

我尝试使用 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
4

0 回答 0