在 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
)
```