Flexdashboard 和 DT：数据表未按预期工作

如何解决Flexdashboard 和 DT：数据表未按预期工作

我刚刚更新了 R 和各种软件包，现在数据表没有按预期显示。早些时候，我会看到分页、总行数，并且能够水平和垂直滚动。最近更新后，表格显示出来但看不到分页、总行数且无法滚动。所以，我恢复了一些我认为应该负责的包，即 flexdashboard_0.5.1.1、htmlwidgets_1.5.1 和 DT_0.13，但它仍然无法像我更新之前那样工作。最终，我将所有软件包更新到了​​最新版本，正如您在 sessionInfo 中看到的那样。

之前（无法使用测试数据进行重现，因为不确定我使用的是哪些包和版本，但这是表格的外观）：即使容器只允许显示 6 行，但我能够垂直滚动以查看所有内容10 行：

更新后：看不到页脚

我只能看到页脚，即分页，缩小 50% 后的行数：

这是我的sessionInfo：

R version 4.0.4 (2021-02-15)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS High Sierra 10.13.6

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] kableExtra_1.3.4 DT_0.17         

loaded via a namespace (and not attached):
 [1] rstudioapi_0.13     xml2_1.3.2          knitr_1.31          magrittr_2.0.1      munsell_0.5.0       rvest_0.3.6        
 [7] flexdashboard_0.5.2 viridisLite_0.3.0   colorspace_2.0-0    R6_2.5.0            rlang_0.4.10        stringr_1.4.0      
[13] httr_1.4.2          tools_4.0.4         webshot_0.5.2       xfun_0.21           tinytex_0.29        jquerylib_0.1.3    
[19] crosstalk_1.1.1     systemfonts_1.0.1   htmltools_0.5.1.1   yaml_2.2.1          digest_0.6.27       lifecycle_1.0.0    
[25] sass_0.3.1          htmlwidgets_1.5.3   glue_1.4.2          evaluate_0.14       rmarkdown_2.7       stringi_1.5.3      
[31] compiler_4.0.4      bslib_0.2.4         scales_1.1.1        svglite_2.0.0       jsonlite_1.7.2

 
  

Rmarkdown 文件 test.Rmd：

---
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    theme: cosmo
editor_options: 
  chunk_output_type: console
---

---
title: Test
---
  
```{r include=FALSE,echo=FALSE}
knitr::opts_chunk$set(comment = NA)
```


```{r load_libraries}
library(DT)
```

Tab1 (P1) {data-navmenu="Tab"}
===
Row {data-height=200}
---   

### Some Information

```{r empty}
```

Row {data-height=500}
---
  
### Table1
  
```{r table1}
datatable(mtcars,rownames = F,escape = T)
```

Row {data-height=300}
---
  
### Table2
  
```{r table2}
datatable(mtcars,escape = T)
```

从 Rmd 文件创建 html 输出：

rmarkdown::render(input = 'tmp.Rmd',output_file = "tmp.html")