en utilisant gsub pour modifier la sortie de la commande xtable

Question

my.mat < - cbind (1: 5, rnorm (5), 6:10, rnorm (5)) colnames (my.mat) < - c ("Tour" , "Draw", "Turn", "Draw") impression (XTABLE (my.mat))

cède

\begin{table}[ht] 
\begin{center} 
\begin{tabular}{rrrrr} 
    \hline 
& Turn & Draw & Turn & Draw \\ 
    \hline 
1 & 1.00 & -0.72 & 6.00 & 0.91 \\ 
    2 & 2.00 & 0.57 & 7.00 & 0.56 \\ 
    3 & 3.00 & 1.08 & 8.00 & 0.55 \\ 
    4 & 4.00 & 0.95 & 9.00 & 0.46 \\ 
    5 & 5.00 & 1.94 & 10.00 & 1.06 \\ 
    \hline 
\end{tabular} 
\end{center} 
\end{table} 

Je veux filtrer le \ begin {table} et \ end { table} lignes. Je peux le faire en utilisant gsub, mais comment j'obtenir les résultats d'impression (XTABLE (... dans une variable

Merci pour l'aide Stack Overflow R communautaire

---

EDIT -! Making progrès

Dans mon .Rnw, je

\begin{tablehere} 
{ 

<<echo=false,results=tex>>= 
library(xtable) 
my.mat <- cbind(1:5, rnorm(5), 6:10, rnorm(5)) 
colnames(my.mat) <- c("Turn", "Draw","Turn", "Draw") 
#print(xtable(my.mat)) 

x <- capture.output(print(xtable(my.mat))) 
x <- gsub("\\\\begin\\{tabular\\}.*", "", x, perl=TRUE) 
x <- gsub("\\\\end\\{tabular\\}.*", "", x, perl=TRUE) 
print(x) 

@ 

} 
\end{tablehere} 

qui conduit à

\begin{tablehere} 
{ 

[1] "% latex table generated in R 2.9.2 by xtable 1.5-5 package" 
[2] "% Mon May 17 20:23:09 2010"         
[3] "\\begin{table}[ht]"           
[4] "\\begin{center}"           
[5] ""               
[6] " \\hline"             
[7] " & Turn & Draw & Turn & Draw \\\\ "       
[8] " \\hline"             
[9] "1 & 1.00 & -1.76 & 6.00 & 0.70 \\\\ "      
[10] " 2 & 2.00 & 1.58 & 7.00 & 2.57 \\\\ "      
[11] " 3 & 3.00 & -1.80 & 8.00 & 0.47 \\\\ "      
[12] " 4 & 4.00 & -2.25 & 9.00 & -0.63 \\\\ "     
[13] " 5 & 5.00 & 1.99 & 10.00 & -0.35 \\\\ "     
[14] " \\hline"             
[15] ""               
[16] "\\end{center}"            
[17] "\\end{table}"             
} 
\end{tablehere} 

qui est si proche. Comment puis-je obtenir R pour imprimer correctement?

Answer 1

Qu'en est-cat(x,sep='\n') au lieu de print(x)

Answer 2

Cela fonctionne pour moi:

x <- print(xtable(my.mat)) 
x <- gsub("\\\\begin\\{tabular\\}\\{rrrrr\\}", "", x)