Accept functions preceded by "::" without parens

tidyverse · May 29, 2014 · 56a7540 · 56a7540
1 parent 810f47f
commit 56a7540
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/magrittr.R b/R/magrittr.R
@@ -79,9 +79,9 @@ pipe <- function(tee = FALSE)
       # Case of a function: rare but possible
       res <- withVisible(rhs(env[[nm]]))
 
-    } else if (is.call(rhs) && deparse(rhs[[1]]) == "function") {
+    } else if (is.call(rhs) && deparse(rhs[[1]]) %in% c("function", "::")) {
 
-      # Anonymous function:
+      # Anonymous function, or function name without parens preceded by "::"
       res <- withVisible(eval(rhs, parent.frame(), parent.frame())(
                          eval(lhs, parent.frame(), parent.frame())))