Fixed trailing numbers issue

Rapporter · Jun 9, 2014 · d8e5da1 · d8e5da1
1 parent 792f555
commit d8e5da1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/S3.R b/R/S3.R
@@ -563,6 +563,7 @@ pander.stat.table <- function(x, caption = attr(x, 'caption'), ...){
       xx[[i]] <- x[, i, ]
     }
     xx <- do.call(rbind, xx)
+    xx <- apply(xx, c(1,2), format, digits=panderOptions("digits"))
     dn <- dimnames(x)
     lgroup <- list(names(dn)[2], dn[[2]])
     tgroup <- names(dn)[3]