Почему функция R print.xtableFtable игнорирует мои параметры?

Question

У меня есть следующий код и print.xtableFtable игнорирует дополнительные опции для латекса.

##### Contingency tables - 34Y 
library(xtable) 
B <- ftable(prereg34Y_sub$employmentStatus34Y, prereg34Y_sub$ethnicity34Y, dnn=c("Unemployed", "NonBritish")) 
sink("CTFemaleNonBrit34Y.tex", type="output") 
print.xtableFtable(xtableFtable(B, method = "compact"), table.placement = "h!") 
sink() 

Выход:

% latex table generated in R 3.3.1 by xtable 1.8-2 package 
% Sat Oct 22 18:08:35 2016 
\begin{table}[ht] 
\centering 
\begin{tabular}{l |rr} 
\hline 
Unemployed $\vert$ NonBritish & \multicolumn{1}{l}{ 0} & \multicolumn{1}{l}{ 1} \\ 
\hline 
0        & 2065 & 68 \\ 
1        & 31 & 2 \\ 
\hline 
\end{tabular} 
\end{table} 

Положение таблицы ХТ вместо ч !. У кого-нибудь есть идея, почему?

Answer 1

Это не кажется, что table.placement аргумент получает передается вместе с print.xtableFtable к print.xtable, но вы можете установить необязательно глобально options(xtable.table.placement = "h!") перед запуском print(xtableFtable(B))

Пример

library(xtable) 

# table.placement doesnt seem to work 
B <- ftable(mtcars$am, mtcars$cyl, dnn=c("Unemployed", "NonBritish")) 
print(xtableFtable(B), table.placement = "h!")  
# % latex table generated in R 3.3.1 by xtable 1.8-2 package 
# % Sat Oct 22 18:00:52 2016 
# \begin{table}[ht] 
# --- 
# --- 

# But works for other data types 
B2 <- table(mtcars$am, mtcars$cyl, dnn=c("Unemployed", "NonBritish")) 
print(xtable(B2), table.placement = "h!") 
# % latex table generated in R 3.3.1 by xtable 1.8-2 package 
# % Sat Oct 22 18:00:52 2016 
# \begin{table}[h!] 
# --- 
# --- 

Так установленные параметры глобально

options(xtable.table.placement = "h!") 
print(xtableFtable(B)) 
# % latex table generated in R 3.3.1 by xtable 1.8-2 package 
# % Sat Oct 22 18:00:52 2016 
# \begin{table}[h!] 
# --- 
# ---