对 JSON REST API 进行身份验证时如何获取会话令牌（在 R 中）

Question

我正在尝试从 REST API访问 JSON 数据（在R 中）。

为了验证自己的身份，我需要在https://dashboard.server.eu/login 中使用 POST 方法。需要发送的数据是邮箱和密码：

library(httr)

login <- list(
  email = "my@email.com",
  password = "mypass"
)

res <- POST("https://dashboard.server.eu/login", body = login, encode = "form", verbose())

执行上述操作时，我得到以下输出：

-> POST /login HTTP/1.1
-> Host: dashboard.server.eu
-> User-Agent: libcurl/7.59.0 r-curl/3.3 httr/1.4.1
-> Accept-Encoding: gzip, deflate
-> Cookie: session=10kq9qv1udf0107F4C70RY14fsum41sq50
-> Accept: application/json, text/xml, application/xml, */*
-> Content-Type: application/x-www-form-urlencoded
-> Content-Length: 53
-> 
>> email=my%40email.com&password=mypass

<- HTTP/1.1 200 OK
<- access-control-allow-headers: Accept, Authorization, Content-Type, If-None-Match
<- access-control-allow-methods: HEAD, GET, POST, PUT, DELETE
<- cache-control: no-cache
<- content-encoding: gzip
<- content-type: application/json; charset=utf-8
<- date: Mon, 09 Mar 2020 14:58:31 GMT
<- set-cookie: session=10kq9qv1udf0107F4C70RY14fsum41sq50; HttpOnly; SameSite=Strict; Path=/
<- vary: origin,accept-encoding
<- x-microserv: NS4yNi4xODQuMjE3
<- x-poweredby: Poetry
<- Content-Length: 2346
<- Connection: keep-alive

该站点的文档说，如果成功，将res返回一个 JSON并在res.data._id.

我没有找到它......甚至查看res.

我应该如何找到令牌？

按照文档和AngularJS 中的示例，我应该执行以下操作：

// Create JSON Object with your token
let authorizeObject = {
    'Authorization': 'Session ' + token,
    'content-type': 'application/json;charset=UTF-8',
    'accept': 'application/json,text/plain',
};

// Create header from the previous JSON Object
let header = {'headers':authorizeObject};

// Use the header in your http request...
$http.get('https://dashboard.server.eu/', header)

有什么让这个梦想成真的暗示吗？

更新——使用 cURL，我可以检查是否有_id返回的键/值......

使用命令：

curl -k -X POST "https://dashboard.server.eu/login" \
             -d '{ "email" : "my@email.com", "password" : "mypass" }' \
             -H "Content-Type: application/json"

我得到输出：

{
  "_id": "697v2on4ll0107F4C70RYhosfgtmhfug",
  "isAuthenticated": true,
  "user": {
    "_id": "5dd57868d83cfc000ebbb273",
    "firstName": "me",
    "lastName": "Me",
...

所以，会话令牌确实在某处......

这对我有帮助吗？

Answer 1

查看res您的问题中的图像，消息就在那里content- 只是内容存储为原始字节的向量，这就是您没有将其识别为 json 的原因。

由于任何文件类型都可以通过 http 发送，httr响应对象中的内容由于各种原因以原始格式而不是字符串存储 - 也许最重要的是因为许多二进制文件将包含一个0x00字节，这在字符中是不允许的R 中的字符串。

在您的情况下，我们不仅可以判断它res$content 是文本，还可以判断它是您“丢失”的 json。的前六个字节res$content显示在您的图像中，并且是7b, 22, 5f, 69, 64, 22. 我们可以通过执行以下操作将它们转换为 R 中的字符串：

rawToChar(as.raw(c(0x7b, 0x22, 0x5f, 0x69, 0x64, 0x22)))
[1] "{\"_id\""

这与您预期的 json 字符串的前六个字符匹配。

因此，如果您这样做：

rawToChar(as.raw(c(0x7b, 0x22, 0x5f, 0x69, 0x64, 0x22)))
[1] "{\"_id\""

或者

httr::content(res, "text")

您将获得 json 作为字符串。