从 R 中的 API 响应中的数据帧列表返回列子集

Question

我是一名 API 新手，自学如何在 R 中与 Planet Labs 的 API 交互，但 Planet 的文档是针对 Python 的，我对此并不熟悉（因此在 R 中工作）。

在他们的一个 tutorials 上，他们提供了一些 python/curl/jq 代码，returns 列表中数据框的一列。

➜  curl -L -H "Authorization: api-key $PL_API_KEY" \
    'https://api.planet.com/data/v1/item-types' | jq '.item_types[].id'
"REOrthoTile" # This is the desired output
"PSOrthoTile" # Desired output

我的问题是：如何将上面代码的 jq 部分合并到 R 中的 API 请求中，以便响应仅包含相关列而不是整个列表和数据框？我可以通过从更大的列表和数据帧中进行子集化来绕过很长一段路，但我试图避免用所有不需要的信息混淆 API 响应。

library(httr)
library(jsonlite)

key = "my_Planet_API_key"
res = GET("https://api.planet.com/data/v1/item-types",
           authenticate(user = key, password = ""))
>res
Response [https://api.planet.com/data/v1/item-types]
  Date: 2020-09-11 17:29
  Status: 200
  Content-Type: application/json
  Size: 7.43 kB
{"_links":{"_self":"https://api.planet.com/data/v1/item-type...

data = fromJSON(rawToChar(res$content))

>summary(data)
           Length Class      Mode
_links     1      -none-     list
item_types 5      data.frame list

> str(data, vec.len = 1)
List of 2
 $ _links    :List of 1
  ..$ _self: chr "https://api.planet.com/data/v1/item-types/"
 $ item_types:'data.frame': 15 obs. of  5 variables:
  ..$ _links               :'data.frame':   15 obs. of  1 variable:
  .. ..$ _self: chr [1:15] "https://api.planet.com/data/v1/item-types/PSOrthoTile" ...
  ..$ display_description  : chr [1:15] "PlanetScope orthorectified 4-band imagery as 25km x 25km UTM tiles" ...
  ..$ display_name         : chr [1:15] "PlanetScope Ortho Tile" ...
  ..$ id                   : chr [1:15] "PSOrthoTile" ...
  ..$ supported_asset_types:List of 15
  .. ..$ : chr [1:11] "analytic" ...
  .. ..$ : chr [1:6] "analytic" ...
  .. ..$ : chr [1:16] "analytic" ...
  .. ..$ : chr [1:23] "analytic" ...
  .. ..$ : chr [1:16] "basic_analytic_b1" ...
  .. ..$ : chr [1:14] "analytic_b1" ...
  .. ..$ : chr [1:15] "analytic_b1" ...
  .. ..$ : chr [1:26] "analytic" ...
  .. ..$ : chr [1:12] "ortho_analytic" ...
  .. ..$ : chr [1:3] "video_file" ...
  .. ..$ : chr [1:4] "ortho_analytic_hh" ...
  .. ..$ : chr [1:22] "analytic_gflags" ...
  .. ..$ : chr [1:8] "analytic_granule_pnt" ...
  .. ..$ : chr [1:22] "analytic_gflags" ...
  .. ..$ : chr [1:8] "analytic_granule_pnt" ...

names(data$item_types)
[1] "_links"                "display_description"  
[3] "display_name"          "id"                   
[5] "supported_asset_types"

data$item_types$id # Desired output should be same as Python output above

谢谢！

Answer 1

本质上，jq是一个单独安装的命令行模块，可以提取或转换JSON数据after curl检索或任何 JSON 不限于 curl。因此，它不会比 R 的 httr 调用做更多的工作。参见 GitHub app page。

为了避免不需要的 API 信息，只需通过名称链从 return 对象中提取需要的项目：

data = fromJSON(rawToChar(res$content))$item_types$id

data = fromJSON(rawToChar(res[["content"]]))[["item_types"]][["id"]]

Answer 2

as.data.frame(list.flatten(res[['']])) %>% select()

从 R 中的 API 响应中的数据帧列表返回列子集

Returning column subset from list of dataframes in API response in R

python

api

curl

r

httr