RIS JSON API 压缩内容

Question

我正在尝试使用德国铁路的 RIS API。我设法使用了似乎 json 的时间表。 https://developers.deutschebahn.com/db-api-marketplace/apis/product/fahrplan/api/9213#/Fahrplan_101/operation/%2Flocation%2F{name}/get

GET https://apis.deutschebahn.com/db-api-marketplace/apis/fahrplan/v1/location/Berlin
Header:
Accept: application/json
DB-Client-Id: 36fd91806420e2e937a599478a557e06
DB-Api-Key: d8a52f0f66184d80bdbd3a4a30c0cc33

我可以使用 httr 复制：

url_location<-"https://apis.deutschebahn.com/db-api-marketplace/apis/fahrplan/v1/location/Bonn"
r<-GET(url_location, 
       add_headers(Accept="application/json",
                   `DB-Client-Id` = client_id, 
                   `DB-Api-Key` = api_key))
content(r)

我知道要用另一个API关于站。 https://developers.deutschebahn.com/db-api-marketplace/apis/product/ris-stations/api/ris-stations#/RISStations_160/operation/%2Fstations/get

GET https://apis.deutschebahn.com/db-api-marketplace/apis/ris-stations/v1/stations?onlyActive=true&limit=100
Header:
  Accept: application/vnd.de.db.ris+json
DB-Client-Id: 36fd91806420e2e937a599478a557e06
DB-Api-Key: d8a52f0f66184d80bdbd3a4a30c0cc33

我希望只要调整 Accept:

它也能正常工作

url_station<-"https://apis.deutschebahn.com/db-api-marketplace/apis/ris-stations/v1/stations?onlyActive=true&limit=100"
r_stations<-GET(url_station, 
               add_headers(Accept="application/vnd.de.db.ris+json",
                           `DB-Client-Id` = client_id, 
                           `DB-Api-Key` = api_key))

我收到了一些数据，状态码是200。调整前是415Accept

当我使用 content 函数或不使用它查看内容时，我得到以下内容

> head(content(r_stations), 30)
 [1] 7b 22 6f 66 66 73 65 74 22 3a 30 2c 22 6c 69 6d 69 74 22 3a 31 30 30 2c 22 74 6f 74 61 6c

r_stations$status_code
[1] 200

我应该得到更多这样的东西：

{
  "offset": 0,
  "limit": 100,
  "total": 5691,
  "stations": [
    {
      "stationID": "1",
      "names": {
        "DE": {
          "name": "Aachen Hbf"
        }
      },

Answer 1

我只需要添加type='application/json'

content(r_stations, type='application/json')

RIS JSON API 压缩内容

RIS JSON API content compressed

api

json

get

r

httr