R：當函數調用為3點時，無法使用Deparse和Replace完全捕獲所有參數

Question

我正在嘗試捕獲函數調用的所有參數，因此使用了deparse和replace。 在我想使用3個點作為參數擴展函數的用法之前，它一直工作良好。 原來只有第一個參數被捕獲。 該功能的簡化版本如下所示。

func_3dot <- function(...){
  tmp <- deparse(substitute(...))
  print(tmp)
}

對於下面的示例，應使用[1]“ mod_1”“ mod_2”。 有什么辦法可以在不改變上述功能的情況下仍然捕獲所有輸入參數？ 謝謝！！

mod_1 <- lm(mpg ~ wt, data = mtcars)
mod_2 <- update(mod_1, . ~ . + hp)

> func_3dot(mod_1, mod_2)
[1] "mod_1"

Answer 1

使用list(...)而不是... ，並分別解析條目。 例如，

func_3dot <- function(...){
  tmp <- substitute(list(...))
  sapply(tmp, deparse)[-1]
}

[-1]從已刪除的結果中刪除對list的調用。

Answer 2

您可以使用match.call ：

func_3dot <- function(...){
  tmp <- vapply(as.list((match.call()[-1])), deparse, FUN.VALUE = character(1))
  print(tmp)
}

func_3dot(mod_1, mod_2)
#[1] "mod_1" "mod_2"

Answer 3

purrr和rlang一種選擇

library(rlang)
library(purrr)
func_3dot <- function(...){
    unname(map_chr(quos(...), quo_name))
  }

func_3dot(mod_1, mod_2)
#[1] "mod_1" "mod_2"

---

或使用base R

func_3dot <- function(...){
   sapply(as.list(substitute(...())), deparse)
 }

func_3dot(mod_1, mod_2)
#[1] "mod_1" "mod_2"