Изменение команды метки fa2latex

Question

Я использую knitr и rstudio для создания отчета. Я пытаюсь распечатать результаты анализа факторов с помощью функции fa2latex() в пакете psych. Я хочу ссылаться на итоговую таблицу в тексте моего отчета. Функция fa2latex печатает команду латексной метки, однако я не видел способа редактировать латексную команду. Я знаю, что смогу редактировать метку после создания файла tex, но я хотел бы сделать это в своем rnw-файле. Кто-нибудь знает, как изменить команду метки по умолчанию на выходе латекса, которая возникает из функции fa2latex в пакете psych.

Вот пример использования кода.

library(psych) 
data(Thurstone) 
fa.Thurstone<-fa(Thurstone) 
fa2latex(fa.Thurstone) 

Результаты этого:

% fa2latex % fa.Thurstone 
\begin{tiny} \begin{table}[htdp]\caption{fa2latex} 
\begin{center} 
\begin{tabular} {l r r r } 
\multicolumn{ 3 }{l}{ A factor analysis table from R } \cr 
\hline Variable & MR1 & MR1.1 & MR1.2 \cr 
    \hline 
Sentences & 0.87 & 0.75 & 0.25 \cr 
Vocabulary & 0.88 & 0.77 & 0.23 \cr 
Sent.Completion & 0.83 & 0.70 & 0.30 \cr 
First.Letters & 0.62 & 0.39 & 0.61 \cr 
4.Letter.Words & 0.61 & 0.37 & 0.63 \cr 
Suffixes & 0.59 & 0.34 & 0.66 \cr 
Letter.Series & 0.57 & 0.32 & 0.68 \cr 
Pedigrees & 0.64 & 0.41 & 0.59 \cr 
Letter.Group & 0.52 & 0.27 & 0.73 \cr 
\hline \cr SS loadings & 4.32 & \cr \hline 
\end{tabular} 
\end{center} 
\label{default} 
\end{table} 
\end{tiny} 

Что я интересно, если есть способ, чтобы изменить значение по умолчанию в команде \label{default}.

Я попытался

fa2latex(fa.Thurstone, label="newlabel") 

, но это говорит мне

Error in fa2latex(fa.Thurstone, label = "newlabel") : 
    unused argument (label = "newlabel") 

Кто-нибудь знает способ изменить это?

Answer 1

Короткий ответ - нет, но это легкий патч. Изменение строки 1, чтобы включить «ярлык»

"fa2latex" <- 
function(f,digits=2,rowlabels=TRUE,apa=TRUE,short.names=FALSE,font.size ="tiny", heading="A factor analysis table from R",caption="fa2latex",label="default") { 

, а затем изменить линии, определяющие нижний колонтитул

footer <- paste(footer," 
\\end{tabular} 
\\end{center} 
\\label{",label,"} 
\\end{table} 
\\end{",font.size,"} 
",sep="" 
) 

Я буду включать эту поправку в следующем выпуске.

Bill