From baa3421dc808e3d6cdd2d1551b62a6a701dd94b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gergely=20Dar=C3=B3czi?= <daroczig@rapporter.net>
Date: Mon, 7 Dec 2015 21:59:24 -0800
Subject: [PATCH] fix #232 don't push non-intercept 1st coeff to end

---
 R/S3.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/S3.R b/R/S3.R
index 5580f5ce..79c394c7 100644
--- 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), ]
     }