title: How can I make my R Shiny Dashboard fill the entire Page?
body: <p>I have an R Shiny app that I'm making using <code>shinydashboard</code>, but I'm having a problem getting the UI to fill the browser window.</p>
  
  <p>Here is my ui.R output:</p>
  
  <pre><code>#
  # This is the user-interface definition of a Shiny web application. You can
  # run the application by clicking 'Run App' above.
  #
  # Find out more about building applications with Shiny here:
  # 
  #    http://shiny.rstudio.com/
  #
  
  ## app.R ##
  library(rsconnect)
  library(shinydashboardPlus)
  library(shinydashboard)
  library(shiny)
  
  #shinyApp(ui = ui, server = server, options = list(height = 1080))
  
  
  ui &lt;- dashboardPage(skin = "red",
    dashboardHeader(title = "Miradashboard",
                    # This drop-down menu offers user and system administration within the application
                    dropdownMenu(type = "messages",
                                 messageItem(
                                   from = "Sales Dept",
                                   message = "Sales are steady this month."
                                 ),
                                 messageItem(
                                   from = "New User",
                                   message = "How do I register?",
                                   icon = icon("question"),
                                   time = "13:45"
                                 ),
                                 messageItem(
                                   from = "Support",
                                   message = "The new server is ready.",
                                   icon = icon("life-ring"),
                                   time = "2014-12-01"
                                 )
                    ),
                    # This is a drop-down menu for checking notifications.
                    # This should alert users of alerts that have not been merged to a case in the last 15 days.
                    dropdownMenu(type = "notifications",
                                 notificationItem(
                                   text = "5 new users today",
                                   icon("users")
                                 ),
                                 notificationItem(
                                   text = "12 items delivered",
                                   icon("truck"),
                                   status = "success"
                                 ),
                                 notificationItem(
                                   text = "Server load at 86%",
                                   icon = icon("exclamation-triangle"),
                                   status = "warning"
                                 )
                    ),
                    # This is a drop-down menu for checking tasks.
                    # This drop-down menu will eventually offer suggestions based off of ML Algorithms.
                    dropdownMenu(type = "tasks", badgeStatus = "success",
                                 taskItem(value = 90, color = "green",
                                          "Documentation"
                                 ),
                                 taskItem(value = 17, color = "aqua",
                                          "Project X"
                                 ),
                                 taskItem(value = 75, color = "yellow",
                                          "Server deployment"
                                 ),
                                 taskItem(value = 80, color = "red",
                                          "Overall project"
                                 )
                    )
  
  
  
    ),
    dashboardSidebar(
      ## Sidebar content
      dashboardSidebar(
        sidebarMenu(
          menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
          menuItem("Widgets", tabName = "widgets", icon = icon("th")),
          menuItem("Reports", tabName = "reports", icon = icon("th")),
          menuItem("OpsCare Clients", tabName = "OpsCare Clients", icon = icon("bar-chart-o")),
          menuItem("ProdCare Clients", tabName = "ProdCare Clients", icon = icon("bar-chart-o")),
          menuItem("Alerts", tabName = "Alerts", icon = icon("bar-chart-o")),
          menuItem("Change Requests", tabName = "Change Requests", icon = icon("list-alt")),
          menuItem("Maintenance Windows", tabName = "Maintenance Windows", icon = icon("list-alt")),
          menuItem("Rundeck", tabName = "Rundeck", icon = icon("bars")),
          menuItem("Salesforce", tabName = "Salesforce", icon = icon("bars")),
          menuItem("Handovers", tabName = "Handovers", icon = icon("bars")),
          menuItem("Jump-Host Access", tabName = "Jump-Host Access", icon = icon("bars"))
        )
      )
    ),
    dashboardBody(
      # Boxes need to be put in a row (or column)
      fluidRow(
        box(plotOutput("plot1", height = 250)),
        box(plotOutput("plot2", height = 250)),
        box(plotOutput("plot3", height = 250)),
        #box(plotOutput("plot4", height = 250)),
        #box(dataTableOutput("DT1", height = 250)),
        box(
          title = "Controls",
          sliderInput("slider", "Number of observations:", 1, 100, 50)
        )
      )
    )
  )
  
  server &lt;- function(input, output) {
    set.seed(122)
    histdata &lt;- rnorm(500)
  
    # List Server Output whereby plot[1-#] is the plot box output in UI above.
    # Server Output occurds and is defined by data variables
    # histdata[seq_len(input$slider)] defines slider utilization
    # hist(data) defines histogram off of "data"te
    output$plot1 &lt;- renderPlot({
      data &lt;- histdata[seq_len(input$slider)]
      hist(data)
    })
    output$plot2 &lt;- renderPlot({
      data &lt;- histdata[seq_len(input$slider)]
      hist(data)
    })
    output$plot3 &lt;- renderPlot({
      data &lt;- histdata[seq_len(input$slider)]
      hist(data)
    })
    output$plot4 &lt;- renderPlot({
      data &lt;- histdata[seq_len(input$slider)]
      hist(data)
    })
    output$plot5 &lt;- renderPlot({
      data &lt;- histdata[seq_len(input$slider)]
      hist(data)
    })
  }
  
  shinyApp(ui, server)
  </code></pre>
  
  <p>As you can see in the attached a picture, the page is being cut off in a Web Browser. My eventual goal would be to extend it to the full screen as I am trying to make this available and accessible for internal users. If anyone has any suggestions in terms of how to extend the dashboard page to full size that would be nice.</p>
  
  <p>In terms of trying to solve it on my own I have looked into the following aspects to extend it to full screen. </p>
  
  <ol>
  <li>I looked at shiny.js but this does not seem to be a standard repoistory or installation through CRAN</li>
  <li>I looked at the fillPage functionality, but this makes it HTML and the above code is not in HTML format</li>
  <li>I have looked at invoking the Fill page functionality, but it has not done so within the full page view within a web-browser. The invoked command was placed before ad after the ui &lt;- dashboardPage definition within the ui.R</li>
  </ol>
  
  <p><a href="https://i.stack.imgur.com/Zc7JC.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Zc7JC.png" alt="Screenshot showing UI being cut halfway down the window"></a></p>