Shinydashboard：选项卡项目高度问题

Question

如何增加闪亮仪表板中“ tabItem”的高度？似乎没有为“ tabItem”功能更改高度和宽度的规定。有人可以帮忙吗？

我已使用tabItems将其与闪亮的仪表板的侧边栏项目链接。

dashboardBody(
    tabItems(
       tabItem ("map1", height = "1000px",  # doesn't work 
              column(9,
                     box( height = "1000px", #increases the height of the box, but not of the panel.

                   leafletOutput("aishe_map", height = "950px", width = "100%") 
              )),
              column(width = 3,
                     box(
                       width= NULL,
                       selectInput('indicator', 'Select an indicator', 
                                   choices = unique(aishe_m$variable),
                                   selected = aishe_m$variable[1]),
                       selectInput("year", 'Select year', 
                                   choices = unique(aishe_m$Year),
                                   selected = aishe_m$Year[25]),
                       selectInput("vote", "By vote share", choices = unique(aishe_m$`leading party`),
                                   selected = "BJP")))),

      tabItem("data1", 
                  dataTableOutput("table_aishe")
              )
    )))