在闪亮的小工具中创建全屏DT表格小部件

Question

我正在尝试构建一个闪亮的小工具，以使用DT库在数据表中浏览我的数据。 我希望DT小部件能够填满整个闪亮的页面或屏幕，但桌面的渲染高度固定。 如何让表格填满用户界面？

我已经将dataTableOutput的高度参数设置为100％并尝试了不同的UI容器，例如ass fillPage而不是miniUI，但没有成功。

这是我的代码的精简版本：

library(shiny)
library(miniUI)
library(DT)

ViewDT <- function(data) {

  ui <- miniPage(
    DT::dataTableOutput("mytable1", height = "100%")
    )

  server <- function(input, output, session) {

    output$mytable1 <- DT::renderDataTable({
      table <- DT::datatable(data, 
                             extensions = c('Buttons','Scroller'), 
                             options = list(dom = 'BrtS', 
                                            buttons = I('colvis'),
                                            scrollY = 200,
                                            deferRender = TRUE,
                                            paging = T
                                            )
                             )
      })
  }

  runGadget(ui, server, viewer = dialogViewer("Data"))
}

ViewDT(iris)

结果： 该表填充了对话框查看器的大约一半而不是整个对话框。

Answer 1

您可以使用： fillContainer = TRUE ：

library(shiny)
library(miniUI)
library(DT)

ViewDT <- function(data) {

  ui <- miniPage(
    DT::dataTableOutput("mytable1", height = "100%")
  )

  server <- function(input, output, session) {

    output$mytable1 <- DT::renderDataTable({
      table <- DT::datatable(data, 
                             extensions = c('Buttons','Scroller'), 
                             options = list(dom = 'BrtS', 
                                            buttons = I('colvis'),
                                            scrollY = 200,
                                            deferRender = TRUE,
                                            paging = TRUE
                             ),
                             fillContainer = TRUE
      )
    })
  }

  runGadget(ui, server, viewer = dialogViewer("Data"))
}

ViewDT(iris)