reference group, ref time by changing quo env

Author: nmdefries

NAMESPACE

@@ -110,6 +110,7 @@ importFrom(rlang,pairlist2)
 importFrom(rlang,quo_get_env)
 importFrom(rlang,quo_get_expr)
 importFrom(rlang,quo_is_missing)
+importFrom(rlang,quo_set_env)
 importFrom(rlang,sym)
 importFrom(rlang,syms)
 importFrom(stats,cor)

R/grouped_epi_archive.R

@@ -186,7 +186,7 @@ grouped_epi_archive =
 #'   object. See the documentation for the wrapper function [`epix_slide()`] for
 #'   details.
 #' @importFrom data.table key address
-#' @importFrom rlang !! !!! enquo quo_is_missing enquos is_quosure sym syms
+#' @importFrom rlang !! !!! enquo quo_is_missing enquos is_quosure sym syms quo_set_env
           slide = function(f, ..., before, ref_time_values,
                            time_step, new_col_name = "slide_value",
                            as_list_col = FALSE, names_sep = "_",
@@ -437,7 +437,10 @@ grouped_epi_archive =
               }
 
               quo = quos[[1]]
-              f = function(x, quo, ...) rlang::eval_tidy(quo, x)
+              f = function(x, group_key, ref_time_value, quo, ...) {
+                quo = quo_set_env(quo, env(group_key = group_key, ref_time_value = ref_time_value))
+                rlang::eval_tidy(quo, x)
+              }
               new_col = sym(names(rlang::quos_auto_name(quos)))
 
               x = purrr::map_dfr(ref_time_values, function(ref_time_value) {