fix(epi[x]_slide, utils): fix .call args and actually use

R/grouped_epi_archive.R

@@ -313,14 +313,14 @@ epix_slide.grouped_epi_archive <- function(
     }
 
     .f_arg <- ".f" # dummy val, shouldn't be used since we're not using `.f`
-    .slide_comp <- as_diagonal_slide_computation(quosures, .f_arg = .f_arg, .call = caller_env())
+    .slide_comp <- as_diagonal_slide_computation(quosures, .f_arg = .f_arg)
     # Magic value that passes zero args as dots in calls below. Equivalent to
     # `... <- missing_arg()`, but use `assign` to avoid warning about
     # improper use of dots.
     assign("...", missing_arg())
   } else {
     used_data_masking <- FALSE
-    .slide_comp <- as_diagonal_slide_computation(.f, ..., .f_arg = caller_arg(.f), .call = caller_env())
+    .slide_comp <- as_diagonal_slide_computation(.f, ..., .f_arg = caller_arg(.f))
   }
 
   # Computation for one group, one time value

R/slide.R

@@ -156,7 +156,7 @@ epi_slide <- function(
     used_data_masking <- FALSE
     .f_arg <- caller_arg(.f)
   }
-  .slide_comp <- as_time_slide_computation(.f, ..., .f_arg = .f_arg, .call = caller_env())
+  .slide_comp <- as_time_slide_computation(.f, ..., .f_arg = .f_arg)
 
   .align <- rlang::arg_match(.align)
   time_type <- attr(.x, "metadata")$time_type

R/utils.R

@@ -372,6 +372,7 @@ as_slide_computation <- function(.f, ..., .f_arg = caller_arg(.f), .call = calle
           "*" = "If you were trying to use advanced features of the tidyeval interface such as `!! name_variable :=`, you might have forgotten the required leading comma."
         ),
         parent = e,
+        call = .call,
         class = "epiprocess__as_slide_computation__error_forcing_.f"
       )
     }