在R中使用httr包发送API请求时，可以使用add_headers()函数为请求添加授权标头。下面是一个代码示例：

library(httr)

# 设置授权标头
headers <- add_headers(Authorization = "Bearer XXXXX")

# 发送GET请求
response <- GET("https://api.example.com/endpoint", headers = headers)

# 检查响应状态码
status_code <- status_code(response)
if (status_code == 200) {
  # 请求成功
  content <- content(response)
  # 处理响应内容
} else {
  # 请求失败
  message("请求失败，状态码：", status_code)
}

在上述示例中，add_headers()函数用于添加授权标头到请求中。Authorization是一个常见的授权标头字段，具体的值需要根据API的要求进行设置。

然后，使用GET()函数发送GET请求，其中headers参数用于传递授权标头。根据API的响应状态码，可以对请求成功或失败进行相应处理。

请注意，XXXXX需要替换为实际的授权令牌或密钥。具体的授权方式和标头字段可能因API而异，请根据API文档进行相应设置。