动态命名的点传递给Lapply

Question

尽管很容易说明这种方式，但这并不是真正的HTTR2特定问题。如果我有一个与我想要lapply on的函数以及> ...的组件需要命名的函数，那么如何.. ..这样吗？我希望该函数以参数名称（IE param下面的参数）使用，这些函数是点名称，其值是lapply off的值。

library(httr2)
req <- request("http://example.com")
param <- c("foo", "bar")

## hard code param (this is what i am hoping to generate)
lapply(param, \(x) req_url_query(req, param = x))
#> [[1]]
#> <httr2_request>
#> GET http://example.com?param=foo
#> Body: empty
#> 
#> [[2]]
#> <httr2_request>
#> GET http://example.com?param=bar
#> Body: empty


## want the ... to dynamically named
my_func <- function(req, ...) {
  lapply(..., \(x) req_url_query(req, ...))
}

other_param <- c("x", "y")
my_func(req, other_param)
#> Error in `modify_list()`:
#> ! All components of ... must be named

Answer 1

这看起来像是有效的（从下面的评论中进行了编辑）：

my_func <- function(req, ...) {   
  dots <- list(...)   
  dots_chr <- unlist(dots)
  function_string <- paste0("lapply(dots_chr, \\(x) req_url_query(req, ", names(dots), "= x))")   
  eval(parse(text = function_string)) 
}  

返回：

$pizza1
<httr2_request>
GET http://example.com?pizza=is_great
Body: empty

$pizza2
<httr2_request>
GET http://example.com?pizza=is_healthy
Body: empty

Answer 2

这是一个使用base do.call函数的版本，用您想要的参数名称构建对函数的调用

my_func <- function(req, ...) {
  mc <- as.list(match.call()[-(1:2)])
  stopifnot(length(mc)==1)
  pname <- deparse1(mc[[1]])
  if(!is.null(names(mc))) {
    pname[names(mc)!=""] <- names(mc)[[names(mc)!=""]]
  }
  lapply(list(...)[[1]], \(x) do.call("req_url_query", setNames(list(quote(req), x), c("", pname))))
}
   

，例如

other_param <- c("x", "y")
my_func(req, other_param)
my_func(req, other_param=1:2)
my_func(req, other_param=other_param)