Fixed test for floating.environment being margintable

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

diff --git a/pkg/R/print.xtable.R b/pkg/R/print.xtable.R
index 80d2edd5c90216d2531469b2c43cd0c5029cc96f..2f875b0f54860634f4b54cfaa30f9b7f75f70499 100644 (file)
--- a/pkg/R/print.xtable.R
+++ b/pkg/R/print.xtable.R
@@ -180,9 +180,8 @@ print.xtable <- function(x,
                             "margintable"))))) {\r
         stop("\"type\" must be in {\"table\", \"table*\", \"sidewaystable\", \"margintable\"}")\r
     }\r
-    if ((match(floating.environment,\r
-              c("table","table*","sidewaystable","margintable"))\r
-        == "margintable") & (!is.null(table.placement))) {\r
+    if (("margintable" %in% floating.environment)\r
+        & (!is.null(table.placement))) {\r
         warning("margintable does not allow for table placement; setting table.placement to NULL")\r
         table.placement <- NULL\r
     }\r