这里有一个方法：

just_params <- function(call) {
  # Get the expression that was in the call without evaluating it.
  
  call <- substitute(call)
  
  # Expand all arguments to their full names.  This needs the
  # called function to exist and be visible to our caller.
  
  call <- match.call(get(call[[1]], mode = "function", 
                         envir = parent.frame()), 
                     call)
  
  # Change the name of the function to "list" to return the arguments
  
  call[[1]] <- `list`
  
  # Evaluate it in the parent frame
  
  eval(call, envir = parent.frame())
}

some_function <- function(param1, param2, longname) {}

just_params(some_function(param1 = "this", param2 = 'that', long = 1 + 1))
#> $param1
#> [1] "this"
#> 
#> $param2
#> [1] "that"
#> 
#> $longname
#> [1] 2

创建于2023-09-03带有reprex v2.0.2
备注：

• 如果调用缩写了一个名称，您将看到完整的名称（示例中使用long而不是longname）
• 如果调用使用了一个表达式，它将被计算（示例使用了1 + 1，但返回了2）。
• 不保留报价的类型。