Как выровнять таблицу данных по выбору пользователя в Ршины - PullRequest
Новая
       11

Как выровнять таблицу данных по выбору пользователя в Ршины

0 голосов
/ 27 сентября 2018

В настоящее время я занимаюсь разработкой блестящего приложения, и у меня возникла проблема с динамическим выравниванием таблицы данных.Используемый код:

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')

    )
  }
})

Полученный результатenter image description here

Может кто-нибудь решить эту проблему?Заранее спасибо !!

...