Displaying 1 result from an estimated 1 matches for "levzz".
Did you mean:
level
2004 Aug 27
3
gsub, backslash and xtable
...ores"), 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") #delete file
a <- "\n"
for (i in 1:length(temp)) {
a <- paste(a,temp[i...