如何根据用户在RShiny中的选择对齐数据表

Question

我目前正在开发一个闪亮的应用程序，并且我面临着数据表动态对齐的问题。 使用的代码是

ui.R

shinyUI(fluidPage(
  dashboardPage(
  dashboardBody(
      tabItems(
        tabItem(tabName = "view_id",
                sidebarLayout(
                  sidebarPanel(width = 2, checkboxGroupInput("sidebar", "People Viewer",
                                                  sidebar_content)

                  ),
                  mainPanel(width=10,style ="background-color:RGB(255,255,255); border-color:RGB(255,255,255);align:left;",
                            wellPanel(DTOutput("tab") )
                  )
                )

        )

      )

    )))

server.R

shinyServer(function(input, output) {

 output$tab <- {

    renderDT(datatable(pep_view[ ,input$sidebar, drop = FALSE  ], filter = 'top', extensions = 'FixedColumns',
                       options = list(scrollX = TRUE,scrollY = "400px" ,fixedColumns = TRUE, pageLength = 10, autoWidth = TRUE
                       ), class = 'cell-border stripe')

    )
  }
})

获得的输出是

任何人都可以解决此问题吗？在此先感谢！