Remove extra "else" from recent check-in.

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

diff --git a/pkg/R/xtable.R b/pkg/R/xtable.R
index 47c60239fc01de73696ca0d2113b2f40e35b0cc5..d6bc227846ebe609f1a542d53a2e7ca14a447e70 100644 (file)
--- a/pkg/R/xtable.R
+++ b/pkg/R/xtable.R
@@ -68,7 +68,7 @@ xtable.table<-function(x,caption=NULL,label=NULL,align=NULL, digits=NULL,display
   } 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")
+    stop("xtable.table is not implemented for tables of > 2 dimensions")
   }
 }