使用httr包,设置标题名称为变量的标题

我想使用R httr包在请求中设置标题并设置标题,当我在变量中有标题的名称时.

我想做这样的事情:

tokenName = 'X-Auth-Token'

get_credentials_test <- function (token) {

  url <- paste(baseUrl,"/api/usercredentials", sep = '')
  r <- GET(url, add_headers(tokenName = token))
  r
}

但是,上面的代码似乎设置了一个名为tokenName的标头.

如果我执行以下操作,它确实有效:

get_credentials_test <- function (token) {

   url <- paste(baseUrl,"/api/usercredentials", sep = '')
   r <- GET(url, add_headers('X-Auth-Token' = token))
   r
}

但是如果标题的名称发生变化并且添加标题的要求大量洒在代码周围,我想要有一些灵活性.我不确定是否可以添加包含变量的头,但这是我想要做的.

您可以将标题创建为命名向量,然后将其作为.headers参数传递:

h <- c(token)
names(h) <- tokenName

r <- GET(url, add_headers(.headers = h))

虽然这有效,因为add_headers它接受了一个.headers参数(参见此处),但是调用具有任意参数名称的函数的更通用的替代方法是do.call:

h <- list(token)
names(h) <- tokenName

r <- GET(url, do.call(add_headers, h))