added glance method for #325

Author: topepo

DESCRIPTION

@@ -31,7 +31,7 @@ Imports:
     prettyunits,
     vctrs (>= 0.2.0)
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.0.9000
+RoxygenNote: 7.1.1
 Suggests: 
     testthat,
     knitr,

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method(fit,model_spec)
 S3method(fit_xy,model_spec)
+S3method(glance,model_fit)
 S3method(has_multi_predict,default)
 S3method(has_multi_predict,model_fit)
 S3method(has_multi_predict,workflow)
@@ -121,6 +122,7 @@ export(get_fit)
 export(get_from_env)
 export(get_model_env)
 export(get_pred_type)
+export(glance)
 export(has_multi_predict)
 export(is_varying)
 export(keras_mlp)
@@ -198,6 +200,7 @@ importFrom(dplyr,tally)
 importFrom(dplyr,vars)
 importFrom(generics,fit)
 importFrom(generics,fit_xy)
+importFrom(generics,glance)
 importFrom(generics,tidy)
 importFrom(generics,varying_args)
 importFrom(glue,glue_collapse)

NEWS.md

@@ -1,5 +1,7 @@
 # parsnip (development version)
 
+ * A `glance()` method for `model_fit` objects was added (#325)
+
  * Specific `tidy()` methods for `glmnet` models fit via `parsnip` were created so that the coefficients for the specific fitted `parsnip` model are returned.
 
 # parsnip 0.1.2

R/reexports.R

@@ -14,3 +14,8 @@ generics::fit_xy
 #' @importFrom generics tidy
 #' @export
 generics::tidy
+
+
+#' @importFrom generics glance
+#' @export
+generics::glance

R/tidy.R

@@ -7,3 +7,14 @@
 #' @return a tibble
 #' @export
 tidy.model_fit <- function(x, ...) generics::tidy(x$fit, ...)
+
+
+#' Construct a single row summary "glance" of a model, fit, or other object
+#'
+#' This method glances the model in a parsnip model object, if it exists.
+#'
+#' @inheritParams generics::glance
+#'
+#' @return a tibble
+#' @export
+glance.model_fit <- function(x, ...) generics::glance(x$fit, ...)

R/zzz.R

@@ -7,6 +7,7 @@
   s3_register("broom::tidy", "_lognet")
   s3_register("broom::tidy", "_multnet")
   s3_register("broom::tidy", "_fishnet")
+  s3_register("broom::glance", "model_fit")
 }