Я пытаюсь выполнить большой API-опрос со всеми историческими записями автомобилей Самсары.
API ограничен 512 записями на вызов, я могу успешно извлечь все с первой страницы, но не могу создать al oop для извлечения всех дополнительных страниц.
Для вызова требуется startTime, endTime, тип (по одному на вызов), и, если после включен, можно перейти к следующей странице.
Если есть следующая страница, есть элемент $ hasnextpage = TRUE и предоставляется «конечный курсор». Endcursur должен быть вставлен в часть после URL.
$ endCursor [1] "bca1313a-73a8-4314-acb2-121a279ce3a5"
$ hasNextPage [1] TRUE
Вот пример моего кода, у меня есть изменил названия компаний и токен на предъявителя для конфиденциальности.
base_url <- https://api.samsara.com/fleet/vehicles/stats/history?after=&startTime=2020-02-29T19:08:25Z&endTime=2020-04-12T19:08:25Z&types=obdOdometerMeters
apiKey <- "Bearer samsara_api_U9C3578632qcdPgOUYW7AOwxKW"
LUX_fleet <- GET(url = base_URL,
add_headers(Authorization = paste ("Key", apiKey)))
str(content(company_fleet))
company_fleet <- content(company_fleet, as = "text", encoding = "UTF-8")
df_fleet_company <- fromJSON(company_fleet, flatten = TRUE)
Any help would be very greatly appreciated! Thanks so much
[1]: https:/
/ i.stack.imgur.com / Mqu8F.png