在rstudio查看器中控制数据表输出的高度

Question

考虑以下降价文档：

---
title: "R Notebook"
output: html_notebook
---

```{r}
library(shiny)

ui <- fluidPage(
    DT::dataTableOutput("tbl")
)
server <- function(input, output, session){
    output$tbl = DT::renderDataTable(
        mtcars,
        server = FALSE,
        selection = list(mode = "multiple", target = "column", selected = c(1)),
        options = list(pageLength = 10, autoWidth = TRUE)
    )
}

runApp(
    appDir = shinyApp(ui, server), 
    launch.browser = rstudioapi::viewer
)
```

如果我从 rmarkdown 运行闪亮的应用程序，则表格未完全显示。 如果我点击“在浏览器中打开”，一切都会很好。

题：

如果我从 rmarkdown 调用应用程序，如何在查看器中的整页上显示表格？

Answer 1

我认为最简单的方法是将height添加到dataTableOutput 。 你可以玩弄这个数字，也可以试试“rem”、“px”等等——“em”对我来说效果最好。 您可能还想尝试添加width参数，以便在调整窗口大小时表格会缩放，并且可能尝试从options删除autoWidth ，具体取决于最终产品的外观。

---
title: "R Notebook"
output: html_notebook
---

```{r}
library(shiny)

ui <- fluidPage(
    DT::dataTableOutput("tbl", height = "40em")
)
server <- function(input, output, session){
    output$tbl = DT::renderDataTable(
        mtcars,
        server = FALSE,
        selection = list(mode = "multiple", target = "column", selected = c(1)),
        options = list(pageLength = 10, autoWidth = TRUE)
    )
}

runApp(
    appDir = shinyApp(ui, server), 
    launch.browser = rstudioapi::viewer
)
```