HTTP POST 在 R 中使用 httr

HTTP POST using httr in R

我正在尝试将我的 curl 请求从 运行 调整到 TerminalR。为此,我使用 httr 包。我的请求如下,从 Terminal

开始工作
curl -u user@email.com:password -H "Content-Type:application/json" -X POST "https://catalogue.onda-dias.eu/dias-catalogue/Products(48809a01-71bc-4669-8639-f0528abcdafe)/Ens.Order"

我尝试使用httrPOST函数如下:

pars <- list(username='user@email.com', password='password')

res<-POST("https://catalogue.onda-dias.eu/dias-catalogue/Products(48809a01-71bc-4669-8639-f0528abcdafe)/Ens.Order", body = pars, add_headers('Content-Type'='application/json'))

我收到 401 错误代码。你知道我应该如何正确转换我的请求吗?

尝试使用 httr:authenticate

require(httr)

headers = c('Content-Type' = 'application/json')

r <- httr::POST(  url = 'https://catalogue.onda-dias.eu/dias-catalogue/Products(48809a01-71bc-4669-8639-f0528abcdafe)/Ens.Order'
                  , httr::add_headers(.headers=headers)
                  , httr::authenticate('user@email.com', 'password'))