From: roosen <roosen@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Fri, 7 Oct 2011 07:37:44 +0000 (+0000)
Subject: In "xtable.table", stop if the table has more than two dimensions.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9d9cc15e058b84a99a5fe7431a3bef9b1698ce36;p=xtable.git

In "xtable.table", stop if the table has more than two dimensions.

git-svn-id: svn://scm.r-forge.r-project.org/svnroot/xtable@12 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---

diff --git a/pkg/R/xtable.R b/pkg/R/xtable.R
index d082a06..47c6023 100644
--- a/pkg/R/xtable.R
+++ b/pkg/R/xtable.R
@@ -65,8 +65,10 @@ xtable.matrix <- function(x,caption=NULL,label=NULL,align=NULL,
 xtable.table<-function(x,caption=NULL,label=NULL,align=NULL, digits=NULL,display=NULL,...) {
   if (length(dim(x))==1) {
     return(xtable.matrix(matrix(x,dimnames=list(rownames(x),names(dimnames(x)))),caption=caption,label=label,align=align,digits=digits,display=display))
-  } else {
+  } else if (length(dim(x))==2) {
     return(xtable.matrix(matrix(x,ncol=dim(x)[2],nrow=dim(x)[1],dimnames=list(rownames(x),colnames(x))),caption=caption,label=label,align=align,digits=digits,display=display))
+  } else {
+    else stop("xtable.table is not implemented for tables of > 2 dimensions")
   }
 }