私はいつも、この機能を使ってpander パッケージpandoc.table
を拡張したいと思っていましたが、そのための時間を確保できませんでした。しかし、この質問は本当に刺激的で、おそらく今後数日でそれを行うでしょう. それまでは、次のことはどうでしょうか。
パッケージをロードします。
library(pander)
データをロードします。
n <- data.frame(x = c(1,1,1,1,1), y = c(0,1,0,1,0))
Pandocで強いとマークされるように行を更新します。
for (i in c(1, 3, 5))
n[i, ] <- pandoc.strong.return(n[1, ])
テーブルのマークダウン バージョンを表示します。
pandoc.table(n)
pander(n) # S3 method
brew
次の構文を使用して、マークダウンを HTML などに変換します。
Pandoc.brew(text = '<%=n%>', output = tempfile(), convert = 'html')
更新:pander
行/列/セルを簡単に強調表示するために、いくつかの新しい引数を取るように更新しました。私はまだこのプロセスを簡単にするためにいくつかのヘルパー関数に取り組んでいますが、ワークフローにどのように役立つかを確認できるように、簡単なデモを次に示します。
> pandoc.table(n, emphasize.rows = c(1, 3, 5))
-------
x y
--- ---
*1* *0*
1 1
*0* *1*
1 1
*1* *0*
-------
> pandoc.table(n, emphasize.strong.cells = which(n == 1, arr.ind = TRUE))
-----------
x y
----- -----
**1** 0
**1** **1**
**1** 0
**1** **1**
**1** 0
-----------
更新: pander
テーブル内のセルをさらに簡単に強調表示するためのヘルパー関数がいくつか追加されました:
> t <- mtcars[1:3, 1:5]
> emphasize.cols(1)
> emphasize.rows(1)
> pandoc.table(t)
----------------------------------------------------
mpg cyl disp hp drat
------------------- ------ ----- ------ ----- ------
**Mazda RX4** *21* *6* *160* *110* *3.9*
**Mazda RX4 Wag** *21* 6 160 110 3.9
**Datsun 710** *22.8* 4 108 93 3.85
----------------------------------------------------
またはメソッドで直接pander
:
> emphasize.strong.cells(which(t > 20, arr.ind = TRUE))
> pander(t)
---------------------------------------------------------
mpg cyl disp hp drat
------------------- -------- ----- ------- ------- ------
**Mazda RX4** **21** 6 **160** **110** 3.9
**Mazda RX4 Wag** **21** 6 **160** **110** 3.9
**Datsun 710** **22.8** 4 **108** **93** 3.85
---------------------------------------------------------
これらの新機能はまだ CRAN で公開されていませんが、 GitHubでホストされている最新バージョンで見つけることができることに注意してください。