Displaying 1 result from an estimated 1 matches for "past_xtable".
Did you mean:
paste_xtable
2004 Aug 27
3
gsub, backslash and xtable
...4paper,10pt]{article}"
.
.
theTx <- paste(theTx, paste_xtable(temp2,"Percentiles for scores"), sep
= "")
.
theTx <- paste(theTx,"\n" ,"\\end{document}","\n", sep = "")
.
cat(theTx) #into a file for Latex
############## with my past_xtable function being ##########
paste_xtable <- function(a_table, cap) {
sink(file = "levzz", append = FALSE, type = "output")
print(xtable(a_table,caption=cap))
sink()
#read it back
temp <- readLines("levzz", n=-1) #note / get doubled automaticaly
unlink("levzz&...