fix #232 don't push non-intercept 1st coeff to end

Rapporter · Dec 8, 2015 · baa3421 · baa3421
1 parent 29dd300
commit baa3421
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/S3.R b/R/S3.R
@@ -315,7 +315,7 @@ pander.summary.lm <- function(x, caption = attr(x, 'caption'), covariate.labels,
 
     res <- as.data.frame(x$coeff)
 
-    if (nrow(res) > 1) {
+    if (rownames(res)[1] == '(Intercept)' & nrow(res) > 1) {
         res <- res[c(2:nrow(res), 1), ]
     }