Added coercion generics

NAMESPACE

@@ -6,6 +6,13 @@ S3method(as_draws,CmdStanMCMC)
 S3method(as_draws,CmdStanMLE)
 S3method(as_draws,CmdStanPathfinder)
 S3method(as_draws,CmdStanVB)
+export(as.CmdStanDiagnose)
+export(as.CmdStanGQ)
+export(as.CmdStanLaplace)
+export(as.CmdStanMCMC)
+export(as.CmdStanMLE)
+export(as.CmdStanPathfinder)
+export(as.CmdStanVB)
 export(as_cmdstan_fit)
 export(as_draws)
 export(as_mcmc.list)

R/generics.R

@@ -0,0 +1,54 @@
+
+#' Coercion methods for CmdStan objects
+#'
+#' These methods are used to coerce objects into `cmdstanr` objects.
+#' Primarily intended for other packages to use when interfacing
+#' with `cmdstanr`.
+#'
+#' @param object to be coerced
+#' @param ... additional arguments
+#'
+#' @name cmdstan_coercion
+NULL
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanMCMC <- function(object, ...) {
+  UseMethod("as.CmdStanMCMC")
+}
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanMLE <- function(object, ...) {
+  UseMethod("as.CmdStanMLE")
+}
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanLaplace <- function(object, ...) {
+  UseMethod("as.CmdStanLaplace")
+}
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanVB <- function(object, ...) {
+  UseMethod("as.CmdStanVB")
+}
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanPathfinder <- function(object, ...) {
+  UseMethod("as.CmdStanPathfinder")
+}
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanGQ <- function(object, ...) {
+  UseMethod("as.CmdStanGQ")
+}
+
+#' @rdname cmdstan_coercion
+#' @export
+as.CmdStanDiagnose <- function(object, ...) {
+  UseMethod("as.CmdStanDiagnose")
+}