Question

当我运行以下代码时，我只获得1或2行数据。如何增加显示的行数？谢谢！

    ---
    title: " File Analysis"
    output:
    html_document: default
    pdf_document: default
    word_document: default
    ---

    ```{r setup, include=FALSE}
    knitr::opts_chunk$set(echo = FALSE,comment = NA, echo=FALSE,message= FALSE, warning = FALSE)
    ```
    **As can be seen in Table 1 below**
    ```{r echo=FALSE, message=FALSE,warning = FALSE}
    cwater<-matrix(rbinom(10*100, 1, .5), ncol=10)

    library("knitr","xtable", quietly = TRUE)
    library(DT, quietly = TRUE)
    datatable(cwater, caption = 'Table 1: This is a searchable table of the     water content.',
    class = 'cell-border stripe', filter = 'top',extensions   = 'Buttons',fillContainer=TRUE, options = list(
    pageLength = 10, autoWidth = TRUE,dom = 'Bfrtip',buttons = c  ('copy', 'print'), scrollX = TRUE, 
 selection="multiple"
    ))
    ```

Answer 1

您需要增加容器的大小或关闭'fillContainer'选项：

---
title: "DT Table Example"
output: 
  html_notebook:
    toc: true
    number_sections: false
    theme: united
    highlight: tango
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE,comment = NA, echo=FALSE,message= FALSE, warning = FALSE)
```
**Turn off the 'fillContainer' option**
```{r echo=FALSE, message=FALSE,warning = FALSE}
cwater<-matrix(rbinom(10*100, 1, .5), ncol=10)

library("knitr","xtable", quietly = TRUE)
library(DT, quietly = TRUE)
datatable(cwater,
          caption = 'Table 1: This is a searchable table of the water content.',
          class = 'cell-border stripe', 
          filter = 'top',
          extensions = 'Buttons',
          fillContainer = FALSE, 
          options = list(pageLength = 10, 
                         autoWidth = TRUE,
                         dom = 'Bfrtip',
                         buttons = c('copy', 
                                     'print'), 
                         scrollX = TRUE, 
            selection="multiple"
          ))
```

DT在DT中显示更多行

1 个答案: