Yelp Fusion API с R

У меня нет ключа API, поэтому я не могу воспроизвести это, но документ кажется довольно ясным: Yelp бизнес_поиск

Я предполагаю, что проблема связана с вашим циклом for, и вы не указываете смещение в функции.

key = "api_key"

restaurant_function <- function(key, location, term, offset){
  business_search(api_key = key,
                  location = location,
                  term = term,
                  offset = offset,
                  limit = 50)
}

NYC_Restaurants <- data.frame()

for (offset_val in seq(0,1000,50)) {
  temp <- restaurant_function(key, 'New York','restaurants', offset_val)
  NYC_Restaurants <- rbind(NYC_Restaurants, temp)
}

print(NYC_Restaurants)

Вы также можете попробовать установить смещение как глобальную переменную:

restaurant_function <- function(location, term){
  business_search(api_key = key,
                  location = location,
                  term = term,
                  offset = offset,
                  limit = 50)
}

NYC_Restaurants <- data.frame()

for (offset_val in seq(0,1000,50)) {
  offset <<- offset_val
  temp <- restaurant_function('New York','restaurants')
  NYC_Restaurants <- rbind(NYC_Restaurants, temp)
}

print(NYC_Restaurants)

Надеюсь это поможет.

Использование функции creativename (спасибо):

restaurant_function <- function(key, location, term, offset){
  business_search(api_key = key,
                  location = location,
                  term = term,
                  offset = offset,
                  limit = 50)
}

Я работал с коллегой, чтобы получить цикл, который вернет 1000 результатов во фрейм данных:

NYC_Restaurants <- data.frame()

for (offset_val in seq(0,1000,50)) {
  print(offset_val)
  temp <- restaurant_function(key, 'New York', 'restaurants', offset_val) %>% 
    .$businesses %>% 
    mutate(categories = map(categories, flatten_chr)) %>% 
    mutate(categories = lapply(categories, paste, collapse = ", ") %>% unlist()) %>% 
    mutate(latitude = .$coordinates$latitude) %>% 
    mutate(longitude = .$coordinates$longitude) %>% 
    select(-coordinates) %>% 
    mutate(transactions = lapply(transactions, paste, collapse = ", ") %>% unlist()) %>% 
    mutate(address = .$location$display_address)  %>% 
    mutate(address = lapply(address, paste, collapse = ", ") %>% unlist()) %>% 
    select(-location)
  NYC_Restaurants <- bind_rows(NYC_Restaurants, temp)
}