R Shinny-如何更改菜单项页面背景的尺寸

当我添加更多的框时，只需尝试在这里获得白色背景以覆盖页面的其余部分。您可以在这里看到，如果我向一个菜单项页面添加了足够多的框，它需要一个滚动条，那么白色背景不会持续超过一个完整屏幕的长度

ui <- dashboardPage(skin = "green", # basic color theme for dashboard
                dashboardHeader(title = "Dashboard"), #title for whole dashboard
                dashboardSidebar(
                    sidebarMenu( # making the pages that are chosen in the sidebar
                        menuItem("Hourly Data",tabName="alldata",icon=icon("home")),
                        menuItem("Daily Data", tabName="daydata",icon=icon("calendar-day")),
                        menuItem("Monthly Data", tabName="monthdata",icon=icon("calendar")),
                        menuItem("Graph Archives",tabName="archive",icon=icon("archive")))),
                
                dashboardBody( #designing the first page
                    tabItems(
                        tabItem(tabName= "alldata", # telling R which page im designing
                                h2("Hourly System Load"), #naming the page (h1= largest text, h6 = smallest)
                                fluidRow(column(2, # allows me to put input boxes next to each other (2 = distance between inputs)
                                dateRangeInput(inputId = "DateRange", #Making the Calendar to choose the date range
                                               label= "Select Date Range:",
                                               start=min(Data$Date),  #the initial start date
                                               end=max(Data$Date), #the initial end date
                                               min=min(Data$Date), #min allowed date
                                               max=max(Data$Date), #max allowed date
                                               format="yyyy/mm/dd",
                                               separator="to")
                                ),
                                  column(2,selectInput("Group", "Group by:",c("Year_Month","Date"))), #input for choosing how the data is grouped for the graph
                                      column(2,selectInput("Position","Legend Position:",c("right","left","top","bottom"))) #for choosing legend position
                                      ),
                                box(plotOutput("Data")), # designating box for plot
                                box(h3("Primary Output"),h5("(Checking 0 boxes displays all data)"),checkboxGroupInput("Months","Months:",MonthNames,inline=TRUE),checkboxGroupInput("Years","Years:",Years,inline=TRUE),checkboxGroupInput("Days","Day of Week:",Days,inline=TRUE),selectInput("Holidays","Holidays:",c("Include Holidays","No Holidays","Only Holidays"))), #pulling all the time options that were defined when the data was pulled
                                box(h3("Average of Selected Data"),checkboxGroupInput("Months2","Months:",MonthNames,inline=TRUE),checkboxGroupInput("Years2","Years:",Years,inline=TRUE),checkboxGroupInput("Days2","Day of Week:",Days,inline=TRUE),selectInput("Holidays2","Holidays:",c("Include Holidays","No Holidays","Only Holidays"))), # repeat for the averages line  
                                box(plotOutput("Data2")), # repeat for the next plot  
                                box(h3("X Data"),h5("(Checking 0 boxes displays all data)"),checkboxGroupInput("Months3","Months:",MonthNames,inline=TRUE),checkboxGroupInput("Years3","Years:",Years,inline=TRUE),checkboxGroupInput("Days3","Day of Week:",Days,inline=TRUE),selectInput("Holidays3","Holidays:",c("Include Holidays","No Holidays","Only Holidays"))) #pulling all the time options that were defined when the data was pulled
                               ),

---

ui能否请您提供一个可复制的最小示例（即显示您的问题的最小运行应用程序的代码），这样可以更容易地帮助您。谢谢您好，我发布了图像中显示的仪表板页面的所有UI代码，谢谢发布！不幸的是，它不是最小的（仅使用您需要的代码来重现问题）并且不可重现（缺少服务器部分）；那么有人帮助你的机会就更高：）