X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=pkg%2FR%2FxtableFtable.R;fp=pkg%2FR%2FxtableFtable.R;h=4c5f70976beb117b642292f4a62cde8081d95afd;hb=2010af29eb3014154ff05685f2fd888653bdb995;hp=46c7f7b8d482c1a880a6f6415b600380ad790444;hpb=bd48a7f361867bbe275f99284247daf3dd8789cf;p=xtable.git

diff --git a/pkg/R/xtableFtable.R b/pkg/R/xtableFtable.R
index 46c7f7b..4c5f709 100644
--- a/pkg/R/xtableFtable.R
+++ b/pkg/R/xtableFtable.R
@@ -1,7 +1,7 @@
 ### ftable objects, requested by Charles Roosen
 ### Feature request #2248, 2/9/2012
 xtableFtable <- function(x, caption = NULL, label = NULL, align = NULL,
-                         digits = NULL, display = NULL,
+                         digits = 0, display = NULL,
                          quote = FALSE,
                          method = c("non.compact", "row.compact",
                                     "col.compact", "compact"),
@@ -155,7 +155,10 @@ print.xtableFtable <- function(x,
     }
 
 
-    print.xtable(fmtFtbl, hline.after = c(-1, nCharRows, dim(fmtFtbl)[1]),
+    if(is.null(hline.after)) {
+      hline.after <- c(-1, nCharRows, dim(fmtFtbl)[1])
+    }
+    print.xtable(fmtFtbl, hline.after = hline.after,
                  include.rownames = FALSE, include.colnames = FALSE,
                  booktabs = booktabs,
                  sanitize.text.function = function(x){x})