从WebAPI使用httr获取令牌

Question

我正在尝试访问使用令牌加密的webapi。我正在使用用户名和密码来获取令牌，如下所示：

token <- GET("https://XXX/XXX/XXX/token",
         add_headers("Content_type"="application/x-www-form-urlencoded"),
         body = paste("grant_type=password","username=XXX", "password=XXX"))

我得到状态代码400，错误为“ unsupported_grant_type”。 谁能帮助解决这个问题？

谢谢