在 R 中发出 GET 请求

Question

我一直在玩httr和rcurl，无法将以下curl GET请求转换为R：

curl -X GET --header 'Accept: application/json' --header 'Authorization: Bearer 31232187asdsadh23187' 'https://this.url.api.com:334/api/endpoint'

特别是，我在传递授权选项时遇到了一些麻烦，因为我无法在两个库中找到等效的参数。它可能是自定义标头？

Answer 1

httr::GET('https://this.url.api.com:334/api/endpoint', 
      accept_json(), 
      add_headers('Authorization' = 'Bearer 31232187asdsadh23187'))

另请参阅 https://github.com/hrbrmstr/curlconverter

Answer 2

尝试新的和进一步改进的卷发转换器包。 它将接受一个 curl 请求并输出一个 httr 命令。

#devtools::install_github("hrbrmstr/curlconverter")
library(curlconverter)
curlExample <- "curl -X GET --header 'Accept: application/json' --header 'Authorization: Bearer 31232187asdsadh23187' 'https://this.url.api.com:334/api/endpoint'"
resp <- make_req(straighten(curlExample))
resp

Answer 3

我同意斯科特的回答。我对卷曲转换器的维护和官方性了解不多，但为了完成 httr 功能，我将再添加几行。

getInfoInJson <- httr::GET('https://this.url.api.com:334/api/endpoint', 
      accept_json(), 
      add_headers('Authorization' = 'Bearer 31232187asdsadh23187'))
 #safe the info in a json object 
 jsonInfoImg <- content(getInfoInJson, type="application/json")

希望对您有所帮助。