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

Which using 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-papi-marketplace/apis/product/ris-stations/ris-stations/api/ris-stations#/risstations/risstations_160/operation/poperation/poperation/%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

我希望我希望这样做只需调整接受：

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

。 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')