はてな記法の表を出力する関数

hatena.r

hatena <- function(x){
 cn1 <- NULL
 if(!is.null(colnames(x))) cn1 <- paste("|*",colnames(x))
 dim1 <- dim(x)
 x <- apply(x, 2,as.character)
 x <- paste("|",x)
 dim(x) <- dim1
 if(is.null(cn1)){
 	write.table(x, quote=FALSE,col.names=FALSE, row.names=FALSE, eol="|\n")
 	}else{
 colnames(x) <- cn1
 write.table(x, quote=FALSE, row.names=FALSE, eol="|\n")}
}

see also

xtable
kable