Added test file for margintable floating environment

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

diff --git a/pkg/tests/test.margintable.R b/pkg/tests/test.margintable.R
new file mode 100644 (file)
index 0000000..8311558
--- /dev/null
+++ b/pkg/tests/test.margintable.R
@@ -0,0 +1,47 @@
+### Test of feature request #2168 implementation\r
+### Enables use of margintable floating environment\r
+### DJS, 17/08/2012\r
+library(xtable)\r
+x <- matrix(rnorm(6), ncol = 2)\r
+x.small <- xtable(x, label='tabsmall', caption = 'A margin table')\r
+print(x.small, floating.environment = 'margintable',\r
+      table.environments = "",\r
+      table.placement = NULL)\r
+## % latex table generated in R 2.15.0 by xtable 1.7-1 package\r
+## % Fri Aug 17 01:42:42 2012\r
+## \begin{margintable}\r
+## \centering\r
+## \begin{tabular}{rrr}\r
+##   \hline\r
+##  & 1 & 2 \\\r
+##   \hline\r
+## 1 & 1.42 & -1.11 \\\r
+##   2 & -0.57 & 0.23 \\\r
+##   3 & -0.67 & -0.60 \\\r
+##    \hline\r
+## \end{tabular}\r
+## \caption{A margin table}\r
+## \label{tabsmall}\r
+## \end{margintable}\r
+print(x.small, floating.environment = 'margintable',\r
+      table.environments = "")\r
+## % latex table generated in R 2.15.0 by xtable 1.7-1 package\r
+## % Fri Aug 17 01:42:46 2012\r
+## \begin{margintable}\r
+## \centering\r
+## \begin{tabular}{rrr}\r
+##   \hline\r
+##  & 1 & 2 \\\r
+##   \hline\r
+## 1 & 1.42 & -1.11 \\\r
+##   2 & -0.57 & 0.23 \\\r
+##   3 & -0.67 & -0.60 \\\r
+##    \hline\r
+## \end{tabular}\r
+## \caption{A margin table}\r
+## \label{tabsmall}\r
+## \end{margintable}\r
+## Warning message:\r
+## In print.xtable(x.small, floating.environment = "margintable", table.environments = "") :\r
+##   margintable does not allow for table placement; setting table.placement to NULL\r
+\r

diff --git a/pkg/tests/test.xtable.R b/pkg/tests/test.xtable.R
index d39e328142fa3320a630108b7caf451e6a8b2cbd..6f62cab4cf08fe3dbde899f66e7668378dad319e 100644 (file)
--- a/pkg/tests/test.xtable.R
+++ b/pkg/tests/test.xtable.R
@@ -1,3 +1,6 @@
+### Test of implementation of request #2104\r
+### Use of \centering rather that center environment when centering tables\r
+### DJS, 16/8/2012\r
 require(xtable)\r
 ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)\r
 trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)\r