remove quosure conversion in as_slide_computation

Author: nmdefries

NAMESPACE

@@ -91,13 +91,11 @@ importFrom(rlang,"!!")
 importFrom(rlang,.data)
 importFrom(rlang,.env)
 importFrom(rlang,arg_match)
-importFrom(rlang,call2)
 importFrom(rlang,caller_arg)
 importFrom(rlang,caller_env)
 importFrom(rlang,check_dots_empty0)
 importFrom(rlang,enquo)
 importFrom(rlang,enquos)
-importFrom(rlang,eval_tidy)
 importFrom(rlang,f_env)
 importFrom(rlang,f_rhs)
 importFrom(rlang,is_environment)
@@ -108,9 +106,6 @@ importFrom(rlang,is_quosure)
 importFrom(rlang,is_string)
 importFrom(rlang,missing_arg)
 importFrom(rlang,new_function)
-importFrom(rlang,pairlist2)
-importFrom(rlang,quo_get_env)
-importFrom(rlang,quo_get_expr)
 importFrom(rlang,quo_is_missing)
 importFrom(rlang,sym)
 importFrom(rlang,syms)

R/utils.R

@@ -227,9 +227,9 @@ assert_sufficient_f_args <- function(f, ..., n_mandatory_f_args = 2L) {
 #' h <- as_slide_computation(~ .x - .group_key)
 #' h(6, 3)
 #'
-#' @importFrom rlang check_dots_empty0 is_function is_quosure eval_tidy call2
-#'  quo_get_env new_function pairlist2 f_env is_environment missing_arg f_rhs
-#'  is_string quo_get_expr is_formula caller_arg caller_env
+#' @importFrom rlang check_dots_empty0 is_function new_function f_env
+#'  is_environment missing_arg f_rhs is_string is_formula caller_arg
+#'  caller_env
 as_slide_computation <- function(x,
                         env = global_env(),
                         ...,
@@ -241,12 +241,6 @@ as_slide_computation <- function(x,
     return(x)
   }
 
-  if (is_quosure(x)) {
-    mask <- eval_tidy(call2(environment), env = quo_get_env(x))
-    fn <- new_function(pairlist2(... = ), quo_get_expr(x), mask)
-    return(fn)
-  }
-
   if (is_formula(x)) {
     if (length(x) > 2) {
       rlang:::abort_coercion(