我来帮你拆解这个问题的核心原因，以及为什么你的第二种写法能解决问题～

首先，先明确你遇到的现象：用match.call()+eval()的写法时，链式调用container$add("books",1)$add(0)会重复添加"books"条目，而用self$add(...)直接调用就不会。

问题的核心原因：链式调用中match.call()的捕获范围+eval()的执行逻辑 #

你可能没意识到，在链式调用的场景下，match.call()捕获的是完整的链式调用表达式，而不是当前单个add方法的调用。

举个例子，当你执行container$add("books",1)$add(0)时，R会把这个表达式解析成：

`$`(`$`(container, add)("books", 1), add)(0)

当你在第二个add(0)的方法内部调用match.call()时，它返回的不是你预期的add(item = 0)，而是整个链式调用的后半部分：

`$`(`$`(container, add)("books", 1), add)(item = 0)

当你修改这个mc为add(item = "default", count = 0)后，实际上你修改后的call是：

`$`(`$`(container, add)("books", 1), add)(item = "default", count = 0)

然后你用eval(mc)执行这个call，就会重新执行一次container$add("books",1)，再执行add("default", 0)——这就导致"books"被添加了两次，加上"default"一共三个条目，正好是你看到的结果！

为什么第二种写法能解决问题？ #

你的第二个写法中，用return(self$add(mc[["item"]], mc[["count"]]))替代了eval(mc)，这里的关键区别是：

• self$add(...)是直接调用当前对象的add方法，传入修改后的参数"default"和0，完全不会涉及之前的链式调用部分。
• 它不会重新执行container$add("books",1)，只是在当前对象上新增一个"default"条目，所以最终得到你想要的两个条目。

更简洁的替代方案（避免match.call()的坑） #

其实你完全可以不用match.call()，直接通过检查参数是否缺失来实现需求，代码更简洁也更易读：

library(R6)
Container <- R6Class( "Container",
  public = list(
    add = function(item, count) {
      # 检查count是否缺失，如果只传了一个参数，交换逻辑
      if (missing(count)) {
        count <- item
        item <- "default"
      }
      l <- list(name = item, n = count)
      private$.items <- append(private$.items, list(l))
      invisible(self)
    }
  ),
  private = list( .items = list() ),
  active = list(
    items = function() { return(private$.items) }
  )
)

测试一下：

container <- Container$new()
container$add("books",1)$add(0)
container$items

结果正好是你想要的：

[[1]]
[[1]]$name
[1] "books"

[[1]]$n
[1] 1

[[2]]
[[2]]$name
[1] "default"

[[2]]$n
[1] 0

这个写法既满足了“不修改参数顺序”“只使用位置匹配”的要求，又避开了match.call()在链式调用中的陷阱，代码逻辑也更清晰。

总结 #

• match.call()在链式调用中会捕获完整的调用表达式，用eval()执行修改后的call会重复执行之前的链式调用步骤，导致重复条目。
• 直接用missing()检查参数是否缺失，是更简单可靠的实现方式。
• 如果一定要用match.call()，请用self$add(...)直接调用方法，而不是eval(mc)，避免重新执行链式调用的前序步骤。