Feature/tidymodels support

.github/workflows/R-CMD-check.yaml

@@ -5,10 +5,12 @@ on:
     branches:
       - main
       - master
+      - dev
   pull_request:
     branches:
       - main
       - master
+      - dev
 
 name: R-CMD-check
 

DESCRIPTION

@@ -7,7 +7,7 @@ Authors@R:
            role = c("aut", "cre"),
            email = "packages@jaredlander.com",
            comment = c(ORCID = "0000-0002-7291-726X"))
-Version: 1.2.9
+Version: 1.3.1
 Date: 2025-08-23
 Description: Plots the coefficients from model objects. This very quickly shows the user the point estimates and confidence intervals for fitted models.
 License: BSD_3_clause + file LICENSE
@@ -39,3 +39,5 @@ Suggests:
     rmarkdown
 Encoding: UTF-8
 RoxygenNote: 7.3.2
+Enhances: 
+    hardhat

NEWS.md

@@ -1,3 +1,9 @@
+# Version 1.3.1
+- Added support for tidymodels workflows
+
+# Version 1.2.9
+- Bug Fixes
+
 # Version 1.2.8
 - Methods for plotting `{workflows}` and `{parsnip}` models.
 - Fixed warning due to deprecation of `guide` argument in `{ggplot2}`.

R/coefplot.r

@@ -338,6 +338,20 @@ coefplot.model_fit <- function(model, ...)
     coefplot.default(model$fit, ...)
 }
 
+#' @title coefplot.workflow
+#' @description Coefplot method for workflow objects
+#' @details Pulls model element out of workflow object then calls \code{coefplot}.
+#' @export
+# @author Jared P. Lander
+#' @describeIn coefplot \code{workflow}
+#' @param model A workflow object
+#' @param \dots All arguments are passed on to \code{\link{coefplot}}.  Please see that function for argument information.
+#' 
+coefplot.model_fit <- function(model, ...)
+{
+    coefplot(hardhat::extract_fit_engine(model), ...)
+}
+
 #' coefplot.rxGlm
 #' 
 # Dotplot for rxGlm coefficients

cran-comments.md

@@ -1,6 +1,6 @@
 ## Version Number
 
-1.2.9
+1.3.1
 
 ## Test environments
 
@@ -13,7 +13,7 @@
     - ubuntu-22.04 (devel)
     - ubuntu-24.04 (release)
     - ubuntu-24.04 (devel)
-- Ubuntu 12.04, R 4.5.1
+- Ubuntu 22.04, R 4.5.1
 
 ## R CMD check results
 

tests/testthat/test-tidymodels.R

@@ -8,6 +8,8 @@ flow <- workflow() %>%
 mod5 <- parsnip::fit(flow, data=mtcars)
 mod6 <- parsnip::fit(lm_spec, mpg ~ cyl + qsec + disp, data=mtcars)
 
+mod7 <- workflows::fit(flow, data=mtcars)
+
 coef5_static_default <- coefplot(mod5)
 coef5_static_false <- coefplot(mod5, interactive=FALSE)
 coef5_interactive <- coefplot(mod5, interactive=TRUE)
@@ -18,12 +20,20 @@ coef6_static_false <- coefplot(mod6, interactive=FALSE)
 coef6_interactive <- coefplot(mod6, interactive=TRUE)
 coef6_interactive_sorted <- coefplot(mod6, interactive=TRUE, sort='magnitude')
 
+coef7_static_default <- coefplot(mod7)
+coef7_static_false <- coefplot(mod7, interactive=FALSE)
+coef7_interactive <- coefplot(mod7, interactive=TRUE)
+coef7_interactive_sorted <- coefplot(mod7, interactive=TRUE, sort='magnitude')
+
 test_that("Static plots return ggplot objects", {
     expect_s3_class(coef5_static_default, 'ggplot')
     expect_s3_class(coef5_static_false, 'ggplot')
 
     expect_s3_class(coef6_static_default, 'ggplot')
     expect_s3_class(coef6_static_false, 'ggplot')
+
+    expect_s3_class(coef7_static_default, 'ggplot')
+    expect_s3_class(coef7_static_false, 'ggplot')
 })
 
 test_that("Interactive plots return plotly objects", {
@@ -32,4 +42,7 @@ test_that("Interactive plots return plotly objects", {
 
     expect_s3_class(coef6_interactive, 'plotly')
     expect_s3_class(coef6_interactive_sorted, 'plotly')
+
+    expect_s3_class(coef7_interactive, 'plotly')
+    expect_s3_class(coef7_interactive_sorted, 'plotly')
 })