Change to glance.lm to allow "aov" objects to work with glance.

tidymodels · Feb 17, 2015 · 6ac6356 · 6ac6356
1 parent eab8cfc
commit 6ac6356
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/lm_tidiers.R b/R/lm_tidiers.R
@@ -197,7 +197,9 @@ augment.lm <- function(x, data = model.frame(x), newdata,
 #' 
 #' @export
 glance.lm <- function(x, ...) {
-    s <- summary(x)
+    # use summary.lm explicity, so that c("aov", "lm") objects can be
+    # summarized and glanced at
+    s <- summary.lm(x)
     ret <- with(s, data.frame(r.squared=r.squared,
                               adj.r.squared=adj.r.squared,
                               sigma=sigma,