Ошибка в (функция (, row.names = NULL, check.rows = FALSE, check.names = TRUE, : аргументы подразумевают разное количество строк: 0, 588

Я пытаюсь работать с API от NS (голландская железнодорожная компания). Я хочу иметь его в формате dataframe, но я получаю эту ошибку, когда запускаю следующий код:

NSspoorkaart <- GET("https://gateway.apiportal.ns.nl/Spoorkaart-API/api/v1/spoorkaart", 
                    add_headers("Ocp-Apim-Subscription-Key" = "f354d5839ec5454fbaf1bc44304b1845"))

JSON <- fromJSON(content(NSspoorkaart, "text"), flatten = TRUE)
Data_NS <- as.data.frame(JSON)

Может кто-нибудь объяснить мне, что я делаю неправильно?


person Frank Kuipers    schedule 30.09.2020    source источник


Ответы (1)


Будет ли это работать?

NSspoorkaart <- GET("https://gateway.apiportal.ns.nl/Spoorkaart-API/api/v1/spoorkaart", add_headers("Ocp-Apim-Subscription-Key" = "f354d5839ec5454fbaf1bc44304b1845"))

NSspoorkaart.string <- content(NSspoorkaart, as = "text", encoding = "UTF-8")
NSspoorkaart.list <- jsonlite::fromJSON(NSspoorkaart.string)
NSspoorkaart.df <- NSspoorkaart.list$payload$features
person peter    schedule 30.09.2020