Return NULL by default for stancode

R/stancode.R

@@ -21,8 +21,5 @@ epidist_stancode <- function(data, ...) {
 #' @family stan
 #' @export
 epidist_stancode.default <- function(data, ...) {
-  cli_abort(
-    "No epidist_stancode method implemented for the class ", class(data), "\n",
-    "See methods(epidist_stancode) for available methods"
-  )
+  return(NULL)
 }