Control height of datatableoutput in rstudio viewer

Question

Consider the following markdown document:

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

If i run the shiny app from rmarkdown, the table is not fully shown. If i click on "open in browser", everything is rendered fine.

Question:

How can i Show the table on the full page within the Viewer if i invoke the app from rmarkdown?

Answer 1

I think the simplest method would be to add height to dataTableOutput . You can play around with the number, and also try "rem", "px", etc. – "em" worked best for me. You might also want to try adding the width argument so the table scales when you resize the window, and perhaps try removing autoWidth from options , depending on how the final product looks.

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