relax regex in tidy.car() (closes #1215)

tidymodels · Sep 26, 2024 · 8e04637 · 8e04637
1 parent 35a451a
commit 8e04637
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -561,7 +561,7 @@ Suggests:
     binGroup,
     boot,
     btergm (>= 1.10.6),
-    car,
+    car (>= 3.1-2),
     carData,
     caret,
     cluster,

diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # broom (development version)
 
+* Addressed failure in `tidy.anova()` ahead of upcoming car
+  release (#1215).
+
 * Clarified documentation for a number of cases where dots were
   documented as unused but actually passed to internal functions 
   (#1214).

diff --git a/R/stats-anova-tidiers.R b/R/stats-anova-tidiers.R
@@ -111,7 +111,7 @@ tidy.anova <- function(x, ...) {
   modstr <- "[Mm]od.*[0-9]+:"
   mod_lines <- grep(modstr, x_attr$heading, value = TRUE)
   if (!is.null(x_attr$value)) {
-    if (isTRUE(grepl("^Linear hypothesis", x_attr$heading[[1]]))) {
+    if (isTRUE(grepl("Linear hypothesis", x_attr$heading[[1]]))) {
       # Drop unrestricted model (not interesting in linear hypothesis tests)
       # Use formula to subset if available (e.g. with car::linearHypothesis)
       if (length(mod_lines) != 0) {