r语言 - R6 和马格里特

Question

>我有一个 R6 类，其中包含一系列用于执行例行检查的辅助函数。这些函数存在于公共列表中，通常接受单个参数，对传递给单个参数的值进行一些检查，如果没有错误，则返回值。我经常使用多个检查是很常见的。

我想使用 magrittr 使这些测试链接在一起变得容易，是否可以使用 with 函数进一步缩短代码

library(magrittr)
library(R6)
test = R6::R6Class("Test",inherit=NULL,
  public = list(
    initialize = function(){
    },
    fA = function(x){
      writeLines("Called FA")
      x
    },
    fB = function(x){
      writeLines("Called FB")
      x
    },
    #Enable Chaining by Returning Invisible copy of the R6 Instance
    fC = function(x){
      writeLines("Called FC")
      invisible(self)
    },
    fD = function(x){
      writeLines("Called FD")
      invisible(self)
    }
  )
)
#Works as expected
x = test$new()
y <- 1 %>% x$fA() %>% x$fB()
y
#This is also possible, but it loses the desired return value, and the value of the argument
#needs to be explicitly passed through to each function.
x$fC(1)$fD(1)
#I Would Like to do something like this:
y <- with(x,1 %>% fA() %>% fB()) #ERROR, could not find function "%>%"
#Trying to resolve the above, I also tried this, which doesn't work.
y <- with(x,1 magrittr::`%>%` fA() magrittr::`%>%` fB()) #ERROR

如何让%>%操作员在with函数中得到认可？

Answer 1

我在这里发布了类似的解决方案。问题是with使用 x 作为环境运行您的代码，其中唯一定义的函数是 x 的方法。访问管道的一种方法是将其定义为一个附加方法（这很棘手），但您也可以.GlobalEnv设置为x的临时父环境，这意味着您将在with中正常使用其他函数：

parent.env(x) <- .GlobalEnv
with(x, 1 %>% fA() %>% fB())
parent.env(x) <- emptyenv() # removes the parent environment

您也可以将其包装在一个函数中，这样您就不必每次都手动设置和重置父环境：

with_global <- function(object, task_expr) {
  task_expr <- substitute(task_expr)
  parent.env(object) <- rlang::current_env()
  with(object, eval(task_expr))