从 R 中的 JSON Google API 请求中提取行

Question

我正在根据 Google 的地图 api 的附近搜索请求从银行提取数据。在某些情况下，它会拉动不止一家银行（因为有些银行可能靠得很近）。我如何提取返回的每个 JSON 对象（因为我需要获取地点 ID），以便我可以进行第二次 api 拉取（基于地点 ID）以搜索更多详细信息关于每家银行？这是我的代码：

require(jsonlite)
require(utils)


plcUrl <- "https://maps.googleapis.com/maps/api/place/nearbysearch/json?"
key <- "myKEY"
location <- paste0("41.0272, -81.51345")
address <- "XXXXXXXXXXXXXXXXX"
type <- "bank"
radius <- "500"
name = "XXXXX"
strurl <- as.character(paste(plcUrl ,
                             "&location=",location,
                             "&address=",address,
                             #"&name=",name,
                             "&radius=",radius,
                             "&type=",type,
                             "&key=",key,
                             sep=""))
setInternet2(TRUE)
rd <- fromJSON(URLencode(strurl))
rd$results$place_id

Answer 1

从 googleway v2.4 开始，我添加了访问 Google API 查询的特定元素的方法。

library(googleway)

key <- "your_api_key"

## search places
res <- google_places(location = c(41.0272, -81.51345),
                    key = key,
                    place_type = "bank",
                    radius = 500)


## get the place_id values using the `place` method to extract the ids
place(res)
# [1] "ChIJDe7R2HQqMYgRvqoszlV6YTA" "ChIJDQwLUXMqMYgR-3Nb2KFhZZ0"

## query the details
details <- google_place_details(place_id = place(res)[1], key = key)

details$result$opening_hours
# $open_now
# [1] FALSE
# 
# $periods
#   close.day close.time open.day open.time
# 1         1       1600        1      0900
# 2         2       1600        2      0900
# 3         3       1600        3      0900
# 4         4       1600        4      0900
# 5         5       1800        5      0900
# 6         6       1300        6      0900
# 
# $weekday_text
# [1] "Monday: 9:00 AM – 4:00 PM"    "Tuesday: 9:00 AM – 4:00 PM"   "Wednesday: 9:00 AM – 4:00 PM" "Thursday: 9:00 AM – 4:00 PM" 
# [5] "Friday: 9:00 AM – 6:00 PM"    "Saturday: 9:00 AM – 1:00 PM"  "Sunday: Closed"

从 R 中的 JSON Google API 请求中提取行

Extract Rows from JSON Google API request in R

json

r

google-maps-api-3

jsonlite