Вы можете взглянуть на пакет xtable для создания латексных таблиц, но я думаю, это не очень хорошо работает с longtable.В качестве альтернативы посмотрите на функцию latex в пакете Hmisc, которая имеет опцию «longtable» и позволяет лучше контролировать вывод.
Чтобы добавить косую черту для специальных символов, используемых в Latex, вы можете сделать что-то вродеэто:
add.slash <- function(x){
where <- embed(c(1,gregexpr("[&#$%]",x)[[1]],nchar(x)+1),dim=2)
out <- paste(apply(where,1,function(y){substr(x,y[2],y[1]-1)}),collapse="\\")
return(out)
}
> x <- "I print $ and % and & and # and . and ! and ,"
> cat(add.slash(x),"\n")
I print \$ and \% and \& and \# and . and ! and ,
РЕДАКТИРОВАТЬ: использование [[: punct:]] неправильно, что также меняет знаки препинания и так далее.Код исправлен.Обратная косая черта действительно проблематична.