From 0af0198ce9f5cca4caddfbd97cb44f8cd5ed0d0d Mon Sep 17 00:00:00 2001 From: dscott Date: Thu, 16 Aug 2012 13:58:35 +0000 Subject: [PATCH] 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 --- pkg/R/print.xtable.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 } -- 2.39.5