rename f args in epix_slide tests and examples

Author: nmdefries

R/methods-epi_archive.R

@@ -822,7 +822,7 @@ group_by.epi_archive = function(.data, ..., .add=FALSE, .drop=dplyr::group_by_dr
 #' archive_cases_dv_subset %>%
 #'   group_by(geo_value) %>%
 #'   epix_slide(
-#'     function(x, g) {
+#'     function(x, gk, rtv) {
 #'       tibble(
 #'         versions_end = max(x$versions_end),
 #'         time_range = if(nrow(x$DT) == 0L) {

R/utils.R

@@ -153,7 +153,7 @@ check_sufficient_f_args <- function(f, n_mandatory_f_args = 2L) {
 #'   place of `.y`, and `.ref_time_value` can be used in place of `.z`. This
 #'   allows you to create very compact anonymous functions (lambdas) with up
 #'   to two inputs. Functions created from formulas have a special class. Use
-#'   `is_lambda()` to test for it.
+#'   `rlang::is_lambda()` to test for it.
 #'
 #'   If a **string**, the function is looked up in `env`. Note that
 #'   this interface is strictly for user convenience because of the
@@ -175,10 +175,6 @@ check_sufficient_f_args <- function(f, n_mandatory_f_args = 2L) {
 #' h <- as_slide_computation(~ .x - .group_key)
 #' h(6, 3)
 #'
-#' # Functions created from a formula have a special class:
-#' is_lambda(f)
-#' is_lambda(as_slide_computation(function() "foo"))
-#'
 #' @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

man/as_slide_computation.Rd

@@ -198,7 +198,7 @@ test_that("epix_slide with all_versions option has access to all older versions"
   # `waldo` package:
   testthat::local_edition(3)
 
-  slide_fn <- function(x, g, t) {
+  slide_fn <- function(x, gk, rtv) {
     return(tibble(n_versions = length(unique(x$DT$version)),
                   n_row = nrow(x$DT),
                   dt_class1 = class(x$DT)[[1L]],
@@ -248,7 +248,7 @@ test_that("as_of and epix_slide with long enough window are compatible", {
 
   # For all_versions = FALSE:
 
-  f1 = function(x, g, t) {
+  f1 = function(x, gk, rtv) {
     tibble(
       diff_mean = mean(diff(x$binary))
     )
@@ -262,11 +262,11 @@ test_that("as_of and epix_slide with long enough window are compatible", {
 
   # For all_versions = TRUE:
 
-  f2 = function(x, g, t) {
+  f2 = function(x, gk, rtv) {
     x %>%
       # extract time&version-lag-1 data:
       epix_slide(
-        function(subx, subg, t) {
+        function(subx, subgk, rtv) {
           tibble(data = list(
             subx %>%
               filter(time_value == attr(subx, "metadata")$as_of - 1) %>%
@@ -306,7 +306,7 @@ test_that("as_of and epix_slide with long enough window are compatible", {
 })
 
 test_that("epix_slide `f` is passed an ungrouped `epi_archive`", {
-  slide_fn <- function(x, g, t) {
+  slide_fn <- function(x, gk, rtv) {
     expect_true(is_epi_archive(x))
     return(NA)
   }