使用JSON网络令牌将文件发布到外部API

如何解决使用JSON网络令牌将文件发布到外部API

我正在尝试使用R将数据库文件上传到外部组织的API。我有一个用户名和密码，以及一个单独的地址，用于从中获取令牌，然后上传文件。

usr<-"username"
pw<-"passwood"
url <- "https:/routurl/api/"
Token='Token'
UploadFile='UploadFile'


#Get Token
r <- httr::POST(url = paste0(url,Token),body = list(
              UserName = usr,Password = pw,grant_type = "password"
            ),verbose())

tkn=jsonlite::prettify(httr::content(r,"text"))

这似乎可行，因为我可以从内容中提取令牌。

> tkn
{
"result": {
    "token": "eyJhbGciOiJIUzFAKEIsInR5cCI6IkpCJ9.eyJodHRwOi8vc2NoZW1hcy54bWxzb2FwLm9yZy93cy8yMDA1LzA1L2lkZW50aXR5L2NsYWltcy9uYW1lIjoiZ3JphzZSIsImp0aSI6IjUwNmIwN2MyLTTHISISFAKEIwMDUvMDUvaWRlbnRpdHkvY2xhaW1zL2VIVECHANGEDTHINGScyI6ImVtaWx5dGdyaWZmaXRoc0BiaW9zLmF1LmRrIiwiZXhwIjoxNTk4NzEwMTU3LCJpc3MiOiJ2bXNhcHAiLCJhdWQiOiJ2bXN1c2VycyJ9.z8sr-HT21u1bN7qCEXAMPLEONLY-TKAluO3k","expiration": "29 August 2020 16:09:17"
},"id": 2,"exception": null,"status": 5,"isCanceled": false,"isCompleted": true,"isCompletedSuccessfully": true,"creationOptions": 0,"asyncState": null,"isFaulted": false
}
 #re-formatting
 tkn=jsonlite::fromJSON(content(r,"text"),simplifyVector = FALSE)

因此，这一切似乎都还可以，但是，如果我尝试在JSON DeCoder上再次进行检查，我的正确Web信息将出现在有效负载中，但在底部它声称这是无效签名。

此外，请求中的auth_token变量为NULL，这似乎不正确。

> r$request$auth_token
 NULL

但是，我无法对此进行测试，因为我一生无法解决如何使用此JWT将文件发布到rooturl / UploadFile的问题。我看过的每个文档都涉及如何将其发布到API，但并未包括如何在POST中包含JWT，或者至少不是很清楚。它在标题中吗？是这样吗？

 r2=POST(url=paste0(url,UploadFile),body = list(y = upload_file('O:/Igoturfilerighthere.h5')),add_headers('Authorization' = paste("Bearer",tkn$result$token,sep = " ")),encode = "json",verbose())

我设置的标题不正确吗？

 r3=POST(url=paste0(url,httr::add_headers("x-auth-token"=tkn$result$token),verbose())

对于r3请求，我收到401错误，这使我认为自己在正确的路径上，并且输入的令牌信息不正确。如果有人可以帮助指导我进行下一步，我将不胜感激。我只是不知道将这些信息放在什么地方。

干杯， etg

更新：

如果在初始请求中添加“ encode =“ json”“，则会引发400错误请求错误。这就是我试图上传的网站编写自己的代码的方式。我已经仔细检查了我的用户名和密码，它们是正确的。

r <- httr::POST(url = paste0(url,body = list(
               UserName = usr,grant_type = "password"
             ),verbose())
HTTP/1.1 400 Bad Request
Transfer-Encoding: chunked
Content-Type: application/problem+json; charset=utf-8
Server: Microsoft-IIS/10.0
Strict-Transport-Security: max-age=2592000
X-Powered-By: ASP.NET

解决方法

因此，我联系了我尝试访问的API背后的组织，而我的JWT请求几乎没有几个问题。这是正确的代码：

r <- httr::POST(paste0(url,Token),body = list(UserName = usr,password = pw),encode = "form",verbose())

最大的区别是，由于我试图通过其网站上的表单登录，因此删除了“ grant_type”并添加了“ encode =“ form”“。有了这种不同，我可以使用以下文件上传文件：

r2=POST(url=paste0(url,UploadFile),body = list(fileToUpload = httr::upload_file('O:/IGotUrFileHere.h5')),httr::add_headers('Authorization' = paste("Bearer",tkn$result$token,sep = " ")),verbose())

同样，不需要verbose（）函数。它只是帮助您进行故障排除。祝你好运！