From c903b01a073312973ee1e12054c04140ff610336 Mon Sep 17 00:00:00 2001
From: Sch1urch3r <40924497+Sch1urch3r@users.noreply.github.com>
Date: Sat, 7 Jul 2018 15:19:40 -0700
Subject: [PATCH] Update dashboardPage.R

Reduce min-height for smaller displays. Resolve issue #283
---
 R/dashboardPage.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/dashboardPage.R b/R/dashboardPage.R
index e35c9eca..a7240754 100644
--- 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)
     )
   )