这意味着你需要一个优先级在算术运算
这就排除了任何%>%操作，:=是一个不错的选择，我们也可以使用?，让我们使用:=。
assign()和<-默认情况下通常执行相同的操作。但你的例子暗示了另一种情况：
您希望assign(".", "foo")覆盖旧点，但names(.) <- "foo"（可能还有. <- "foo"）覆盖新点，而不影响旧点。
我相信实现这一点的唯一方法是特殊情况assign()，我在下面这样做，你的测试是满意的。
有了这个解决方案，我们评估的表达式在一个子环境的调用者，继承了所有的值，除了点，这是在这个孩子的环境，并修改分配功能，分配在调用者时，环境参数不提供。

`:=` <- function(lhs, rhs) {
  pf <- parent.frame()
  rhs_call <- substitute(rhs)
  assign2 <- function (x, value, pos = -1, envir = as.environment(pos), inherits = FALSE, 
                       immediate = TRUE) {
    if (missing(pos) && missing(envir)) envir <- pf
    assign(x, value, envir = envir, inherits = inherits, immediate = immediate)
  }
  eval(rhs_call, envir = list(. = lhs, assign = assign2), enclos = pf)
}

1 := identity(.)
#> [1] 1
.
#> Error in eval(expr, envir, enclos): object '.' not found

. <- 2
1 := identity(.)
#> [1] 1
.
#> [1] 2

1 := assign("x", .)
x
#> [1] 1

"x" := assign(., 2)
x
#> [1] 2

1 := assign(".", .)
.
#> [1] 1

"." := assign(., 2)
.
#> [1] 2

x <- 1 := {names(.) <- "foo"; .}
x
#> foo 
#>   1

1 := . + 2 := . * 3
#> [1] 9

创建于2023-05-03带有reprex v2.0.2