Rのxtableで列の位置をすべてセンタリングしてtexに出力

大した話ではないけど、よく忘れるのでメモ。
テーブルをtexに出力する関数を作成しておくと後で便利なので、ある程度汎用的に使えるものを作成。
xtableで作成したテーブルの列数を数えて、その分、"c"をalignに追加する。
pasteではうまくいかない。

temp.r

tbl_pdfout <- function(x,y,z){
	 n <- ncol(x)
	 nalign <- paste0("l", paste0(rep("c",n),collapse=""), collapse="")
	 xtbl <- xtable(x, align=nalign, caption=y)
	 print(xtbl, floating.environment='sidewaystable', file=z)
	 return(x)
}