使用 Flexdashboard 在 Shiny tabpanel 中用 DataTable 填充容器

Question

I am writing a flexdashboard that shows dataframes with DataTable (DT) in tabs.

When using fillContainer=T on DT and normal flexdashboard tabs, I get the desired result: my datatables fill their whole container but not more.

Shinyapps.io : Flexdashboard Tabs with DT's fillContainer=T

Flexdashboard Tabs with DT::FillContainer
======================

Column {.tabset .tabset-fade}
-----------------------------------------------------------------------

### iris 

```{r}
DT::datatable(
    iris,
    fillContainer = T,
    rownames = F)
```

### mtcars 

```{r}
DT::datatable(
    mtcars,
    fillContainer = T,
    rownames = F)
```

I am now trying to use tabs generated dynamically by shiny with tabsetPanel instead of flexdashboard tabs. I tried both with and without fillContainer=T . But the datatables don't fill the container exactly and are either too long in height or very short (less than 2 rows). In both cases the pagination options show below the last row and not at the bottom of the container.

Shinyapps.io : Shiny Tabs with DT's fillContainer=T

Shiny Tabs with DT::fillContainer 
======================

Column {.tabset .tabset-fade}
-----------------------------------------------------------------------

### Tabs container with fillContainer

```{r}
library(shiny)
tabsetPanel(
  tabPanel("iris",
    DT::datatable(
      iris,
      fillContainer = T,
      rownames = F)),
  tabPanel("mtcars",
    DT::datatable(
      mtcars,
      fillContainer = T,
      rownames = F))  
)
```

Shinyapps.io : Shiny Tabs without DT's fillContainer=T

Shiny Tabs without DT::fillContainer 
======================

Column {.tabset .tabset-fade}
-----------------------------------------------------------------------

### Tabs container without fillContainer

```{r}
library(shiny)
tabsetPanel(
  tabPanel("iris",
    DT::datatable(
      iris,
      fillContainer = F,
      rownames = F)),
  tabPanel("mtcars",
    DT::datatable(
      mtcars,
      fillContainer = F,
      rownames = F))  
)
```

Any idea on how to get proper filling of containers? Thanks a lot

Answer 1

Set fillContainer = FALSE

Add style = "height:550px; overflow-y: scroll;" as an argument to tabPanel.

I used this successfully in shinydashboard where tabPanels are part of the tabBox argument.