如何在semantic.dashboard中修复布局？

Question

我正在尝试使用R中的语义。仪表板包创建仪表板。仪表板的布局存在问题。当我将组件添加到仪表板时，组件不会伸展到页面的宽度。

我已经从semantic.dashboard github repo中的示例中获取了以下代码。当我运行它时，它绝对可以正常工作。我看到侧边栏菜单和主体中的框之间有一个空间。我希望组件在侧栏菜单中对齐而没有任何空间。有什么办法可以实现？

library(shiny)
library(shiny.semantic)
library(semantic.dashboard)
library(plotly)
library(DT)

ui <- dashboardPage(
dashboardHeader(dropdownMenuOutput("dropdown"),
              dropdownMenu(type = "notifications",
                           taskItem("Project progress...", 50.777, 
color = "red")),
              dropdownMenu(icon = uiicon("red warning sign"),
                           notificationItem("This is an important 
notification!", color = "red"))),
dashboardSidebar(side = "left",
               sidebarMenu(
                 menuItem(tabName = "plot_tab", text = "My plot", 
                          icon = icon("home")),
                 menuItem(tabName = "table_tab", text = "My table", 
                          icon = icon("smile")))),
dashboardBody(
       tabItems(
          tabItem(tabName = "plot_tab",
          fluidRow(
            valueBox("Unread Mail", 44, icon("mail"), color = 
                     "blue", width = 5)),
          fluidRow(
            box(title = "Sample box", color = "blue", width = 11,
                selectInput(inputId = "variable1", choices = 
                            names(mtcars),
                            label = "Select first variable", 
                            selected = "mpg"),
                selectInput(inputId =  "variable2", choices = 
                            names(mtcars),
                            label = "Select second variable", 
                            selected = "cyl"),
                plotlyOutput("mtcars_plot")),

            tabBox(title = "Sample box", color = "blue", width = 5,
                   collapsible = FALSE,
                   tabs = list(
                     list(menu = "First Tab", content = "Some 
                          text..."),
                     list(menu = "Second Tab", content = 
                          plotlyOutput("mtcars_plot2"))
                         )))),
            tabItem(tabName = "table_tab",
                     fluidRow(
                              valueBox("Unread Mail", 144, 
                                       icon("mail"),
                                       color = "blue", width = 6, 
                                       size = "small"),
            valueBox("Spam", 20, icon("mail"), color = "red", width 
                     = 5, size = "small"),
            valueBox("Readed Mail", 666, icon("mail"), color = 
                     "green", width = 5, size = "small")
                     ),
            fluidRow(
            box(title = "Classic box", color = "blue", ribbon = 
                FALSE, title_side = "top left", width = 14,
                tags$div(
                  dataTableOutput("mtcars_table")
                  , style = paste0("color:", 
                    semantic_palette[["blue"]], ";"))
                ))))
         ), theme = "darkly"
     )

server <- function(input, output) {

output$mtcars_plot <- renderPlotly(
                      plot_ly(mtcars, x = ~ mtcars[ , 
                               input$variable1],
                               y = ~ mtcars[ ,input$variable2],
                                type = "scatter", mode ="markers")
  )
output$mtcars_plot2 <- renderPlotly(
                       plot_ly(mtcars, x = ~ mtcars[ , 
                               input$variable1],
                               y = ~ mtcars[ ,input$variable2],
                               type = "scatter", mode ="markers"))

output$mtcars_table <- renderDataTable(mtcars, options = 
                                      list(dom ='t'))

output$dropdown <- renderDropdownMenu({
dropdownMenu(messageItem("User", "Test message", color = "teal", 
style = "min-width: 200px"),
             messageItem("Users", "Test message", color = "teal", 
icon = "users"),
             messageItem("See this", "Another test", icon = 
"warning", color = "red"))
})
}

shinyApp(ui, server)