Функция Shiny datatable Scroller / searchPane не отображает все строки - PullRequest
Новая
       49

Функция Shiny datatable Scroller / searchPane не отображает все строки

0 голосов
/ 05 августа 2020

У меня есть DT datatable с searchPane, который всплывает, когда вы нажимаете кнопку. Я не могу получить полный список параметров для отображения во всплывающем фильтре, например, здесь "6" не является вариантом для фильтрации sepal.length.

Следует отметить, что я могу получить все группы фильтров для показать (около 900 строк), когда он не во всплывающем окне. Я не говорю на JS, но могу просмотреть документацию, чтобы подать заявку на R. 

library(shiny)
library(shinydashboard)
library(DT)
library(data.table)

####/UI/####
header <- dashboardHeader()

sidebar <- dashboardSidebar()

body <- dashboardBody(
  DT::dataTableOutput("test")
)



ui <- dashboardPage(header, sidebar, body)

####/UI/####


server <- function(input, output, session){ 
  
  
  output$test<-  DT::renderDT(server = FALSE, { 
    datatable(iris, 
              extensions = c('SearchPanes','Select','Buttons', 'Scroller'),
              rownames = FALSE,
              selection = "none",
              options = list(dom = 'lBfrtip',
                             autoWidth = TRUE,
                             deferRender = TRUE,
                             scrollY = 400,
                             scroller = TRUE,
                             buttons = list("searchPanes", "copy", "print", list(extend = "collection", text = "Download", 
                                                                                 buttons = c("csv", "excel", "pdf"))),
                             language = list(searchPanes = list(collapse = "Filter Rows")),
                             columnDefs = list(
                               list(searchPanes = list(show = FALSE), targets = 2),
                               list(searchPanes = list(controls = FALSE), targets = 0:1),
                               list(className = "dt-center", targets = 0:1)))
    )
  } )  
}


shinyApp(ui, server)
...