如何使用R中的curl包设置grant_type参数？

我试图在来自R的curl请求中实现grant_type=client_凭据，但找不到如何正确实现。此请求将使用-d标志

我怎么在这里设置这个？我找不到示例（目前，我使用“body”标记，但这会带来以下错误）：

由于身份验证凭据无效或存在错误，身份验证失败 缺少授权标头

库（curl）
#获取访问令牌
H
library(curl)


# get access token
h <- new_handle()

handle_setheaders(h, 
                  "Accept" = "application/json",
                  "Accept-Language" = "en",
                  "body" = "grant_type=client_credentials"
                  )


handle_setopt(h,
              userpwd = "username:password"
              )