将 curl 命令行转换为 Rcurl

Question

如何转换此命令：

curl -X POST --user API_TOKEN:x https://app.bluefolder.com/api/2.0/serviceRequests/list.aspx
  --data "<request><listType>full</listType></request>"

至

curl中的curl命令？

我得到了一个 API 令牌，它替换了上面代码中的API_TOKEN 。 我正在尝试使用 Rcurl 检索数据并将其导出到共享网络驱动器上的 csv 文件。 我在 Git Bash 中测试了上面的代码，它工作正常。 当我尝试 R 时，我遇到了错误。 我将使用Example123作为令牌示例。

# devtools::install_github("hrbrmstr/curlconverter")
library(curlconverter)

#Pasting curl command line
flat <- straighten("curl -X POST --user Example123:x https://app.bluefolder.com/api/2.0/serviceRequests/list.aspx
  --data '<request><listType>full</listType></request>'")

#Turns the URL parts list into a fully functional httr call. It's vectorized.
req <- make_req(flat)[[1]]
req

#Reformat the function source to make it more readable
httr::VERB(verb = "POST", 
           url = "https://app.bluefolder.com/api/2.0/serviceRequests/list.aspx", 
           httr::authenticate(user = "Example123", password = "x"),
           httr::verbose(), 
           httr::add_headers(), 
           encode = "json")

#Translate that to a plain POST call without namespacing
POST(url = "https://app.bluefolder.com/api/2.0/serviceRequests/list.aspx", 
    authenticate(user = "Example123", password = "x"), 
    verbose(), 
    add_headers(), 
    encode = "json")

我得到的错误：

                <response status='fail'>
                    <error code='400'>
                        <![CDATA[Invalid request: request is empty.]]>
                    </error>