Update dashboardPage.R

Reduce min-height for smaller displays. Resolve issue rstudio#283
Sch1urch3r · Jul 7, 2018 · c903b01 · c903b01
1 parent 2522242
commit c903b01
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dashboardPage.R b/R/dashboardPage.R
@@ -66,7 +66,7 @@ dashboardPage <- function(header, sidebar, body, title = NULL,
       # the "sidebar-collapse" class on the body means that the sidebar should
       # the collapsed (AdminLTE code)
       class = paste0("skin-", skin, if (collapsed) " sidebar-collapse"),
-      style = "min-height: 611px;",
+      style = "min-height: 411px;",
       shiny::bootstrapPage(content, title = title)
     )
   )