Question

我最近一直在使用pipe_with()中令人敬畏的magittr函数来创建自己的管道。我期待跟踪当前链中的管道数量（因此我的管道可以根据其在链中的位置而表现不同）。我以为我从magrittr github页面获得了这个例子的答案：

# Create your own pipe with side-effects. In this example 
# we create a pipe with a "logging" function that traces
# the left-hand sides of a chain. First, the logger:
lhs_trace <- local({
  count <- 0
  function(x) {
    count <<- count + 1
    cl <- match.call()
    cat(sprintf("%d: lhs = %s\n", count, deparse(cl[[2]])))
  }
})

# Then attach it to a new pipe
`%L>%` <- pipe_with(lhs_trace)

# Try it out.
1:10 %L>% sin %L>% cos %L>% abs

1: lhs = 1:10
2: lhs = 1:10 %L>% sin
3: lhs = 1:10 %L>% sin %L>% cos
 [1] 0.6663667 0.6143003 0.9900591 0.7270351 0.5744009 0.9612168 0.7918362 0.5492263 0.9162743 0.8556344

左侧的数字是管道编号。但是，当我再次运行相同的链时，数字不会在1：

重新启动

> 1:10 %L>% sin %L>% cos %L>% abs
4: lhs = 1:10
5: lhs = 1:10 %L>% sin
6: lhs = 1:10 %L>% sin %L>% cos
 [1] 0.6663667 0.6143003 0.9900591 0.7270351 0.5744009 0.9612168 0.7918362 0.5492263 0.9162743 0.8556344

这可能是因为首次使用%L>%时创建的本地环境在执行链中的最后%L>%时不会被销毁。因此，为了告诉当前链中管道的位置（而不仅仅是自会话中的第一个管道），需要有一种方法在链结束时将计数变量设置回0（或重置当地环境）。

有没有人对如何做到这一点有任何想法？

Answer 1

在当前的dev分支中，由于复合运算符%<>%，我们正在使用一种新方法，其中最后一个管道必须知道它是最后一个。无论如何，这意味着管道通过本地值toplevel相对快速地了解这一点，该值为TRUE或FALSE。我不知道这是否有用。

特别是因为pipe_with由于收到的兴趣非常有限而被“搁置”。因此，它不是当前dev分支的一部分。

Answer 2

实际上，只想到了一种方法。只计算子串的出现次数＆＃34;％L＆gt;＆＃34;在match.call：

> lhs_trace2 <- function(x) {
+     cl <- match.call()
+     counter <- gregexpr("%L>%", cl[[2]], fixed = TRUE)[[1]]
+     if (counter[1] == -1) count <- 1 else count <- length(counter) + 1
+     cat(sprintf("%d: lhs = %s\n", count, deparse(cl[[2]])))
+   }
> 
> # Then attach it to a new pipe
> `%L>%` <- pipe_with(lhs_trace2)
> 
> # Try it out.
> 1:10 %L>% sin %L>% cos %L>% abs
1: lhs = 1:10
2: lhs = 1:10 %L>% sin
3: lhs = 1:10 %L>% sin %L>% cos
 [1] 0.6663667 0.6143003 0.9900591 0.7270351 0.5744009 0.9612168 0.7918362 0.5492263 0.9162743 0.8556344

然后再次运行：

> 1:10 %L>% sin %L>% cos %L>% abs
1: lhs = 1:10
2: lhs = 1:10 %L>% sin
3: lhs = 1:10 %L>% sin %L>% cos
 [1] 0.6663667 0.6143003 0.9900591 0.7270351 0.5744009 0.9612168 0.7918362 0.5492263 0.9162743 0.8556344

如何判断管道操作员是否是链中的最后一个（或第一个）？

2 个答案: