From: dscott <dscott@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Thu, 16 Aug 2012 13:58:35 +0000 (+0000)
Subject: Fixed test for floating.environment being margintable
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0af0198ce9f5cca4caddfbd97cb44f8cd5ed0d0d;p=xtable.git

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 80d2edd..2f875b0 100644
--- a/pkg/R/print.xtable.R
+++ b/pkg/R/print.xtable.R
@@ -180,9 +180,8 @@ print.xtable <- function(x,
                             "margintable"))))) {
         stop("\"type\" must be in {\"table\", \"table*\", \"sidewaystable\", \"margintable\"}")
     }
-    if ((match(floating.environment,
-              c("table","table*","sidewaystable","margintable"))
-        == "margintable") & (!is.null(table.placement))) {
+    if (("margintable" %in% floating.environment)
+        & (!is.null(table.placement))) {
         warning("margintable does not allow for table placement; setting table.placement to NULL")
         table.placement <- NULL
     }