remove epidist s3 method

NAMESPACE

@@ -11,7 +11,6 @@ S3method(assert_epidist,default)
 S3method(assert_epidist,epidist_latent_model)
 S3method(assert_epidist,epidist_linelist_data)
 S3method(assert_epidist,epidist_naive_model)
-S3method(epidist,default)
 S3method(epidist_family_model,default)
 S3method(epidist_family_model,epidist_latent_model)
 S3method(epidist_family_prior,default)

NEWS.md

@@ -2,6 +2,9 @@
 
 Development version of `epidist`.
 
+
+- Remove the default method for `epidist()`. See #467.
+
 # epidist 0.1.0
 
 This is the first minor release of `epidist` intended for early test users of the package.

R/epidist.R

@@ -23,20 +23,9 @@
 #' @param ... Additional arguments passed to `fn` method.
 #' @family fit
 #' @export
-epidist <- function(data, formula, family, prior, fn, ...) {
-  UseMethod("epidist")
-}
-
-#' Default method used for interface using `brms`
-#'
-#' @inheritParams epidist
-#' @rdname epidist.default
-#' @method epidist default
-#' @family fit
-#' @export
-epidist.default <- function(data, formula = mu ~ 1,
-                            family = lognormal(), prior = NULL,
-                            fn = brms::brm, ...) {
+epidist <- function(data, formula = mu ~ 1,
+                    family = lognormal(), prior = NULL,
+                    fn = brms::brm, ...) {
   assert_epidist(data)
   epidist_family <- epidist_family(data, family)
   epidist_formula <- epidist_formula(