feat(as_slide_computation): abort nonempty ... with formula

instead of ignoring them.

Author: brookslogan

R/utils.R

@@ -272,6 +272,12 @@ as_slide_computation <- function(f, ...) {
               epiprocess__f = f,
               call = call)
     }
+    if (rlang::dots_n(...) > 0L) {
+      Abort("No arguments can be passed via `...` when `f` is a formula, or there are unrecognized/misspelled parameter names.",
+            class = "epiprocess__as_slide_computation__formula_with_dots",
+            epiprocess__f = f,
+            epiprocess__enquos_dots = enquos(...))
+    }
 
     env <- f_env(f)
     if (!is_environment(env)) {

tests/testthat/test-utils.R

@@ -207,6 +207,10 @@ test_that("as_slide_computation raises errors as expected", {
   expect_error(as_slide_computation(y ~ ..1),
     class="epiprocess__as_slide_computation__formula_is_twosided")
 
+  # Formulas can't be paired with ...
+  expect_error(as_slide_computation(~ ..1, method = "fn"),
+               class="epiprocess__as_slide_computation__formula_with_dots")
+
   # `f_env` must be an environment
   formula_without_env <- stats::as.formula(~ ..1)
   rlang::f_env(formula_without_env) <- 5