deprecate n_args arg for checking if computation f takes enough args

Author: nmdefries

R/grouped_epi_archive.R

@@ -223,7 +223,7 @@ grouped_epi_archive =
 
             # Check that `f` takes enough args
             if (!missing(f) && is.function(f)) {
-              check_sufficient_f_args(f, 3L)
+              check_sufficient_f_args(f)
             }
 
             # Validate and pre-process `before`:

R/slide.R

@@ -159,7 +159,7 @@ epi_slide = function(x, f, ..., before, after, ref_time_values,
 
   # Check that `f` takes enough args
   if (!missing(f) && is.function(f)) {
-    check_sufficient_f_args(f, 3L)
+    check_sufficient_f_args(f)
   }
 
   if (missing(ref_time_values)) {

R/utils.R

@@ -104,11 +104,10 @@ Warn = function(msg, ...) rlang::warn(break_str(msg, init = "Warning: "), ...)
 #'
 #' @param f Function; specifies a computation to slide over an `epi_df` or
 #'  `epi_archive` in `epi_slide` or `epix_slide`.
-#' @param n_mandatory_f_args Integer; specifies the number of arguments `f`
-#'  is required to take before any `...` arg. Defaults to 2.
 #'
 #' @noRd
-check_sufficient_f_args <- function(f, n_mandatory_f_args = 2L) {
+check_sufficient_f_args <- function(f) {
+  n_mandatory_f_args <- 3L
   arg_names = names(formals(args(f)))
   if ("..." %in% arg_names) {
     # Keep all arg names before `...`