R：将 API 请求作为参数传递给函数

Question

形成可以作为参数传递给函数的 API 请求的正确方法是什么？ 该请求旨在在具有特定参数的另一个函数中构造。

请求示例如下：

library(httr)
GET("http://httpbin.org/get")

我想要的是两个功能：

• 一个用于构造请求，以及
• 另一个用于发送。

思路是基于多个参数构造请求，包括POST/GET、headers、tokens，然后放到另一个函数中，这个函数负责安全发送请求。

我的尝试
一个简化的示例，显示了所需的结构（尽管它不能正常工作）。

# Function for sending the API request
fn <- function(request) {
  eval(request)
}

# Top function for constructing the request to be sent
fntop <- function(url, type) {
  url <- sprintf("%s%s", url, type)
  my_request <- expression(GET(url))

  fn(my_request)
}

第一个函数在收到直接请求时工作正常。

fn(GET("http://httpbin.org/get"))

但是，当从另一个函数调用包含变量的请求时，相同的函数不起作用

fntop(url = "http://httpbin.org/",
      type = "get")
# Error in as.character(url) : 
#  cannot coerce type 'closure' to vector of type 'character'

如何将包含变量作为参数的 API 请求传递给函数？

Answer 1

与其存储表达式，不如存储表达式所需的数据。类似的东西

fnmake <- function(verb, url, ...) {
  list(verb=verb, params=list(url, ...))
}

然后编写一个可以获取该数据并执行调用的函数

fncall <- function(req) {
    call <- if(req$verb=="get") {
      "GET"
    } else if (req$verb=="post") {
      "POST"
    } else stop(paste("Unrecognized verb:", req$verb)
    do.call(call, req$params)
}

如果你想将它们组合成一个调用，

fnall <- function(...) {
   fncall(fnmake(...))
}