Issue 465: Remove epidist s3 method (#473)

* remove epidist s3 method * Update NEWS.md Co-authored-by: Adam Howes <[email protected]> --------- Co-authored-by: Adam Howes <[email protected]>
epinowcast · Nov 25, 2024 · 34d0c71 · 34d0c71
1 parent c7a6c1d
commit 34d0c71
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 71 deletions.
diff --git a/NAMESPACE b/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)

diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,9 @@
 
 Development version of `epidist`.
 
+
+- Remove the default method for `epidist()`. See #473.
+
 # epidist 0.1.0
 
 This is the first minor release of `epidist` intended for early test users of the package.

diff --git a/R/epidist.R b/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(

diff --git a/man/epidist.Rd b/man/epidist.Rd
diff --git a/man/epidist.default.Rd b/man/epidist.default.Rd