Управление высотой выходных данных в программе просмотра 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» и т. Д. c. - «Эм» работал лучше всего для меня. Вы также можете попробовать добавить аргумент width, чтобы таблица масштабировалась при изменении размера окна, и, возможно, попытаться удалить autoWidth из options, в зависимости от того, как будет выглядеть конечный продукт.

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