feat(epi_slide_opt): guard against multiple .f matches

brookslogan · brookslogan · commit 6ab73d541fe5 · 2024-11-22T16:11:35.000-08:00
diff --git a/R/slide.R b/R/slide.R
@@ -797,6 +797,12 @@ epi_slide_opt <- function(
       epiprocess__f = .f
     )
   }
+  if (nrow(f_info) > 1L) {
+    cli_abort('epiprocess internal error: looking up `.f` in table of possible
+               functions yielded multiple matches. Please report it using "New
+               issue" at https://github.com/cmu-delphi/epiprocess/issues, using
+               reprex::reprex to provide a minimal reproducible example.')
+  }
   f_from_package <- f_info$package
 
   user_provided_rtvs <- !is.null(.ref_time_values)

Original file line number	Diff line number	Diff line change
`@@ -797,6 +797,12 @@ epi_slide_opt <- function(`
`797`	`797`	`epiprocess__f = .f`
`798`	`798`	`)`
`799`	`799`	`}`
	`800`	`+ if (nrow(f_info) > 1L) {`
	`801`	+ cli_abort('epiprocess internal error: looking up `.f` in table of possible
	`802`	`+ functions yielded multiple matches. Please report it using "New`
	`803`	`+ issue" at https://github.com/cmu-delphi/epiprocess/issues, using`
	`804`	`+ reprex::reprex to provide a minimal reproducible example.')`
	`805`	`+ }`
`800`	`806`	`f_from_package <- f_info$package`
`801`	`807`
`802`	`808`	`user_provided_rtvs <- !is.null(.ref_time_values)`