tidymodels in find_response()

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 1.0.2.11
+Version: 1.0.2.12
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -205,6 +205,7 @@ Suggests:
     tinytable (>= 0.1.0),
     TMB,
     truncreg,
+    tune,
     tweedie,
     VGAM,
     WeightIt,

NAMESPACE

@@ -335,6 +335,8 @@ S3method(find_response,mediate)
 S3method(find_response,mjoint)
 S3method(find_response,model_fit)
 S3method(find_response,selection)
+S3method(find_response,tune_results)
+S3method(find_response,workflow)
 S3method(find_statistic,default)
 S3method(find_terms,afex_aov)
 S3method(find_terms,aovlist)

NEWS.md

@@ -18,6 +18,8 @@
 * `format_table()` gets a `select` argument, which can be used to select columns
   and column layout in a glue-like style.
 
+* `find_response()` now also works for _tidymodels_ workflows.
+
 # insight 1.0.2
 
 ## Changes

R/find_response.R

@@ -124,6 +124,26 @@
 }
 
 
+#' @export
+find_response.tune_results <- function(x, combine = TRUE, ...) {
+  att <- attributes(x)
+  if (any(names(att) == "outcomes")) {
+    resp <- att$outcomes
+  } else {
+    return(NULL)
+  }
+  check_cbind(resp, combine, model = x)
+}
+
+
+#' @export
+find_response.workflow <- function(x, combine = TRUE, ...) {
+  insight::check_if_installed("tune")
+  resp <- tune::outcome_names(x)
+  check_cbind(resp, combine, model = x)
+}
+
+
 #' @rdname find_response
 #' @export
 find_response.mjoint <- function(x, combine = TRUE, component = c("conditional", "survival", "all"), ...) {