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 d082a0601f472b967e594c26dbd3b2345e1afb4e..47c60239fc01de73696ca0d2113b2f40e35b0cc5 100644 (file)
--- 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")
   }
 }