带有标题的 R httr 帖子

Question

我在 Python 中有以下请求。如何在R 的httr 包中重写这个？

我不确定的是如何在 R 中翻译 json 和 tuple 等效项。

import requests

cookies = {}

headers = {
    'Host': 'mysejahtera.malaysia.gov.my',
    'Accept': 'application/json',
    'Connection': 'keep-alive',
    'Content-Length': '77',
    'Authorization': 'Basic N0ZFRkRCMTMtN0Q2MC00NEQxLUE5MTctM0',
    'Content-Type': 'application/json',
    'Accept-Language': 'en-MY;q=1, ms-MY;q=0.9',
    'User-Agent': 'MySejahtera/1.0.36 (iPhone; iOS 14.6; Scale/2.00)',
}

params = (
    ('type', 'search'),
)

data = '[{"lat":3.003090,"lng":101.678300,"classification":"LOW_RISK_NS"}]'

response = requests.post('https://mysejahtera.malaysia.gov.my/register/api/nearby/hotspots', headers=headers, params=params, cookies=cookies, data=data)
response.json()

这是一个尝试。但仍然发出400 错误请求

POST("https://mysejahtera.malaysia.gov.my/register/api/nearby/hotspots?type=search",
     body = list(lat = 3.003090, lng = 101.678300, classification = 'LOW_RISK_NS'), 
     add_headers(Host= 'mysejahtera.malaysia.gov.my',
                 Accept= 'application/json',
                 Connection= 'keep-alive',
                 `Content-Length`= '77',
                 Authorization= 'Basic N0ZFRkRCMTMtN0Q2MC00NEQxLUE5MTctM0',
                 `Content-Type`= 'application/json',
                 `Accept-Language`= 'en-MY;q=1, ms-MY;q=0.9',
                 `User-Agent`= 'MySejahtera/1.0.36 (iPhone; iOS 14.6; Scale/2.00)'), verbose())

Answer 1

这里的技巧似乎是将数据构造为命名列表的列表，以便按照 API 的预期将其编码为 json。

请注意，为了检索所需的响应，大多数提供的标头被证明是不必要的（或由httr 自动生成）。

library(httr)

# data as list of named list
data <- list(
  list(
    lat = 3.003090,
    lng = 101.678300,
    classification = "LOW_RISK_NS"
  )
)

params <- list(type = "search")

response <- POST("https://mysejahtera.malaysia.gov.my/register/api/nearby/hotspots",
                 query = params,
                 body = data, 
                 add_headers(Authorization = "Basic N0ZFRkRCMTMtN0Q2MC00NEQxLUE5MTctM0"),
                 encode = "json"
)
content(response)
#> $hotSpots
#> list()
#> 
#> $zoneType
#> [1] "RED"
#> 
#> $messages
#> $messages$ms_MY
#> [1] "Hai {name}, terdapat 21 kes COVID-19 dalam lingkungan radius 1km dari lokasi ini yang dilaporkan dalam masa 14 hari yang lepas."
#> 
#> $messages$en_US
#> [1] "Hi {name}, there have been 21 reported case(s) of COVID-19 within a 1km radius from your searched location in the last 14 days."
#> 
#> 
#> $note
#> NULL

^{由reprex package (v1.0.0) 于 2021 年 6 月 21 日创建}

一些解释

列表中的 JSON 与列表中的列表

在此处查看命名列表和命名列表列表之间生成的 json 字符串的区别（即添加方括号）：

data <- list(lat = 3, lng = 101, class = "LOW")

# list
jsonlite::toJSON(data)
#> {"lat":[3],"lng":[101],"class":["LOW"]}

# list of a named list
jsonlite::toJSON(list(data))
#> [{"lat":[3],"lng":[101],"class":["LOW"]}]

^{由reprex package (v1.0.0) 于 2021 年 6 月 23 日创建}

更简单的方法

在这里我自己做更多的编码工作，而不是像上面的答案那样让httr 处理它。

请注意，与上面的第二个（列表列表）json 字符串相比，现在缺少值周围的方括号。这是httr的“拆箱”的代表。

library(httr)

response <- POST("https://mysejahtera.malaysia.gov.my/register/api/nearby/hotspots?type=search",
                 body = '[{"lat":3.003090,"lng":101.678300,"classification":"LOW_RISK_NS"}]', 
                 add_headers(Authorization = "Basic N0ZFRkRCMTMtN0Q2MC00NEQxLUE5MTctM0",
                             "Content-Type" = "application/json")
)
content(response)
#> $hotSpots
#> list()
#> 
#> $zoneType
#> [1] "RED"
#> 
#> $messages
#> $messages$ms_MY
#> [1] "Hai {name}, terdapat 22 kes COVID-19 dalam lingkungan radius 1km dari lokasi ini yang dilaporkan dalam masa 14 hari yang lepas."
#> 
#> $messages$en_US
#> [1] "Hi {name}, there have been 22 reported case(s) of COVID-19 within a 1km radius from your searched location in the last 14 days."
#> 
#> 
#> $note
#> NULL

^{由reprex package (v1.0.0) 于 2021 年 6 月 23 日创建}

Answer 2

一般来说，当使用 R 进行网页抓取时，我将输入值设置在 list() 或向量 c() 内。

httr 的 POST() 也接受 JSON 作为正文，您可以在 documentation 上看到。

您的代码很可能如下所示：

library(httr)

cookies <- c()

headers <- c('Host' = 'mysejahtera.malaysia.gov.my',
             'Accept' = 'application/json',
             'Connection' = 'keep-alive',
             'Content-Length' = '77',
             'Authorization' = 'Basic N0ZFRkRCMTMtN0Q2MC00NEQxLUE5MTctM0',
             'Content-Type' = 'application/json',
             'Accept-Language' = 'en-MY;q=1, ms-MY;q=0.9',
             'User-Agent' = 'MySejahtera/1.0.36 (iPhone; iOS 14.6; Scale/2.00)')

data <- list("type" = "search",
             "lat" = 3.003090,
             "lng" = 101.678300,
             "classification" = "LOW_RISK_NS")

response = POST("https://mysejahtera.malaysia.gov.my/register/api/nearby/hotspots",
                body = data,
                add_headers(.headers = headers))

我已将params 合并到body 中并删除了cookie，因为它们在为空时会引发错误。

状态码仍然是 400，这可能表明需要在请求中包含其他变量。