読者です 読者をやめる 読者になる 読者になる

廿TT

譬如水怙牛過窓櫺 頭角四蹄都過了 因甚麼尾巴過不得

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

タイトルの通り。R です。xtable のはてな版のつもり。

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")}
}

追記(2013/11/3)
下記現象は修正されたみたいです。

ヘルプには

|*名前|*色|*個数|
|りんご|赤|1|
|みかん|だいだい|2|

<table>
<tr><th>名前</th><th>色</th><th>個数</th></tr>
<tr><td>りんご</td><td>赤</td><td>1</td></tr>
<tr><td>みかん</td><td>だいだい</td><td>2</td></tr>
</table>

は同じと書いてあるけれども、じっさい後者は変な行間が空いてしまう(ブラウザの問題かもしれないが)。

前者

名前 個数
りんご 1
みかん だいだい 2

後者

名前個数
りんご1
みかんだいだい2

スクリーンショット
f:id:abrahamcow:20121210022026p:plain