R Shiny: Как добавить нумерацию страниц в DT :: renderDataTable - PullRequest
Новая
       22

R Shiny: Как добавить нумерацию страниц в DT :: renderDataTable

0 голосов
/ 26 апреля 2018

Я пытаюсь добавить нумерацию страниц, окно поиска и селектор в мое приложение R Shiny, но пока оно не работает (я пробовал использовать paging = TRUE и search = TRUE, в опциях, как вы можете видеть ниже, но это не так. т работа). Ты хоть представляешь, что я должен добавить? 

output$mytable1  <- DT::renderDataTable(
                            DT::datatable(
                                { plots.dfs()[[1]] },
                                caption = htmltools::tags$caption(
                                    style = 'caption-side: bottom; text-align: center;',
                                    'Table 2: ', htmltools::em('This is a simple caption for the table.')
                                ),
                                extensions = 'Buttons',

                                options = list(
                                    paging = TRUE,
                                    searching = TRUE,
                                    fixedColumns = TRUE,
                                    autoWidth = TRUE,
                                    ordering = TRUE,
                                    dom = 'tB',
                                    buttons = c('copy', 'csv', 'excel')
                                ),

                                class = "display"
                           ))

Я добавил скриншот таблицы, которую я сейчас имею, и ожидаемой таблицы. Спасибо за вашу помощь ![enter image description here] 1

1 Ответ

0 голосов
/ 26 апреля 2018

Вы можете изменить параметр dom, например, следующим образом: 

DT::datatable(
  { mtcars },
  caption = htmltools::tags$caption(
    style = 'caption-side: bottom; text-align: center;',
    'Table 2: ', htmltools::em('This is a simple caption for the table.')
  ),
  extensions = 'Buttons',

  options = list(
    fixedColumns = TRUE,
    autoWidth = TRUE,
    ordering = TRUE,
    dom = 'Bftsp',
    buttons = c('copy', 'csv', 'excel')
  ))

enter image description here

Чтобы добавить длину страницы, также добавьте l к строке. Надеюсь, это поможет!

...