check using ... properly

R/latent_model.R

@@ -1,21 +1,23 @@
 #' Convert an object to an `epidist_latent_model` object
 #'
 #' @param data An object to be converted to the class `epidist_latent_model`
+#' @param ... Additional arguments passed to methods.
 #' @family latent_model
 #' @export
-as_epidist_latent_model <- function(data) {
+as_epidist_latent_model <- function(data, ...) {
   UseMethod("as_epidist_latent_model")
 }
 
 
 #' The latent model method for `epidist_linelist_data` objects
 #'
 #' @param data An `epidist_linelist_data` object
+#' @param ... Not used in this method.
 #' @method as_epidist_latent_model epidist_linelist_data
 #' @family latent_model
 #' @autoglobal
 #' @export
-as_epidist_latent_model.epidist_linelist_data <- function(data) {
+as_epidist_latent_model.epidist_linelist_data <- function(data, ...) {
   assert_epidist(data)
   data <- data |>
     mutate(

R/marginal_model.R

@@ -15,12 +15,13 @@ as_epidist_marginal_model <- function(data, ...) {
 #'   relative observation times to Inf. Observation times greater than
 #'   `obs_time_threshold` times the maximum delay will be set to Inf to improve
 #'   model efficiency. Default is 2.
+#' @param ... Not used in this method.
 #' @method as_epidist_marginal_model epidist_linelist_data
 #' @family marginal_model
 #' @autoglobal
 #' @export
 as_epidist_marginal_model.epidist_linelist_data <- function(
-    data, obs_time_threshold = 2) {
+    data, obs_time_threshold = 2, ...) {
   assert_epidist(data)
 
   data <- data |>