added support for glm output from car

R/anova_tidiers.R

@@ -20,6 +20,10 @@
 #'
 #' @details Note that the "term" column of an ANOVA table can come with
 #' leading or trailing whitespace, which this tidying method trims.
+#' 
+#' Note that \code{Anova} from \pkg{car} (perhaps counter-intuively) outputs an
+#' object of class \code{anova} for generalized linear models. These objects are
+#' also supported.
 #'
 #' @examples
 #'
@@ -61,6 +65,8 @@ tidy.anova <- function(x, ...) {
     "Pr..Chi." = "p.value",
     "p.value" = "p.value",
     "Chi.sq" = "statistic",
+    "LR.Chisq" = "statistic",
+    "LR Chisq" = "statistic",
     "edf" = "edf",
     "Ref.df" = "ref.df"
   )

tests/testthat/test-glm.R

@@ -5,3 +5,25 @@ test_that("glance.glm works", {
   gl <- glance(g)
   check_tidy(gl, exp.col = 7)
 })
+
+test_that(
+  "tidy.anova from car", {
+    model <- glm(am ~ mpg, mtcars, family = "binomial")
+    car_output <- car::Anova(model, test.statistic = "LR")
+
+    expect_equal(
+      object = tidy(car_output),
+      expected = structure(
+        list(
+          term = "mpg", 
+          statistic = 13.5545656286209, 
+          df = 1, 
+          p.value = 0.000231727053726745
+        ), 
+        class = "data.frame", 
+        .Names = c("term", "statistic", "df", "p.value"),
+        row.names = c(NA, -1L)
+      )
+    )
+  }
+)