Pass lexical environment to as_function()

nacnudus · Jun 29, 2021 · 7b6d7a9 · 7b6d7a9
1 parent 0c7895c
commit 7b6d7a9
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/enhead.R b/R/enhead.R
@@ -183,7 +183,11 @@ side_join <- function(data_cells, header_cells, corner, drop = TRUE) {
     header_cells,
     !!pos := corner_pos(!!pos, corner)
   )
-  rlang::as_function(corner)(data_cells, header_cells, drop = drop)
+  match_function(corner)(data_cells, header_cells, drop = drop)
+}
+
+match_function <- function(x, env = parent.frame()) {
+  rlang::as_function(x, env = env)
 }
 
 corner_pos <- function(cells, corner) {