knitr2htmlでkable/kableExtraで素敵なテーブルを取得できません

Question

私はknit2htmlを使ってRコードからhtmlレポートを生成しています。

kable/kableExtraを使ってテーブルをうまく印刷しようとしましたが、うまくいかないようです。私はチュートリアルの一部に見られるように

私は証明するために、この単純なプログラムを使用しますが、テーブルをプリントアウトするすべての試みはかなりの粗プリントアウトではなく、素敵なプリントアウト生成する（例えばhttps://cran.r-project.org/web/packages/kableExtra/vignettes/awesome_table_in_html.html）

Rプログラム：

#!/usr/bin/Rscript 

library(data.table) 
library(knitr) 
library(kableExtra) 

test_data=data.table(a=c(1,2,3,4,5), 
        b=rep('a', 5), 
        c=rep(2.0, 5), 
        d=rep('a', 5), 
        e=rep(2.0, 5), 
        f=rep('a', 5), 
        g=rep(2.0, 5)) 

knit2html('test.Rmd') 

RMDファイル：結果のHTMLの

```{r testprint1, echo=FALSE} 
test_data 
``` 
```{r testprint2, echo=FALSE} 
kable(test_data) 
``` 
```{r testprint3, echo=FALSE} 
test_data %>% kable("html") 
```     
```{r testprint4, echo=FALSE} 
test_data %>% kable("html") %>% kable_styling() 
```     

画面キャプチャ：

ここに何か不足していますか？

Answer 1

利用rmarkdown::render()の代わりknitr::knit2html()。後者はずっと前に引退していたはずであり、歴史的な理由からほとんど存在しています。具体的には、rmarkdown::render()はPandocを呼び出してMarkdown出力を変換し、knitr::knit2html()はマークダウンパッケージを呼び出します。詳細については、this articleを参照してください。

Answer 2

多分knit2htmlはブートストラップを取り込んでいませんか？あなたはマークダウン自体からレンダリングする場合

あなたはkable_stylingから素敵なテーブルを取得：

```{r echo=FALSE} 
library(data.table) 
library(knitr) 
library(kableExtra) 

test_data=data.table(a=c(1,2,3,4,5), 
        b=rep('a', 5), 
        c=rep(2.0, 5), 
        d=rep('a', 5), 
        e=rep(2.0, 5), 
        f=rep('a', 5), 
        g=rep(2.0, 5)) 
``` 

```{r testprint1, echo=FALSE} 
test_data 
``` 
```{r testprint2, echo=FALSE} 
kable(test_data) 
``` 
```{r testprint3, echo=FALSE} 
test_data %>% kable("html") 
```     
```{r testprint4, echo=FALSE} 
test_data %>% kable("html") %>% kable_styling() 
```