Флексборд блестящий стол горизонтальные и вертикальные скроллеры не работают

Question

Я просто импортировал данные csv в flexdashboard R и блестящий и хотел отобразить таблицу внутри одной из таблиц Chart, а ниже приведен код, который я использую для этого. Я хотел, чтобы появились вертикальные и горизонтальные скроллеры, но кажется, что они не работают, есть идеи, где я не прав?

для данных, вы можете использовать MTCARS для времени.

Row 
-------------------------------------

### DATA 

```{r}

    data_set <- reactive({
    inFile <- input$file1
    if (is.null(inFile))
      return(NULL) else return ( read.csv(inFile$datapath, header = input$header, stringsAsFactors =FALSE) )
}) 

output$tbl <-DT::renderDataTable({
  if (is.null(data_set()))
      return(NULL) else return (
        DT::datatable(data_set(), 
                      #style='bootstrap', class='table-condensed', 
                      #editable=FALSE, 
                      rownames=FALSE,
        options = list(
         scrollX = '400px', scrollY='360px', 
         searchHighlight=TRUE, pageLength = 4
  ))
)

})

div(style = "overflow-x: scroll; overflow-y: scroll;", DTOutput("tbl"))
```

Добавление данных:

structure(list(Gender = c("Male", "Male", "Male", "Male", "Male", 
"Male", "Male", "Male", "Male", "Male"), Height = c(73.847017017515, 
68.7819040458903, 74.1101053917849, 71.7309784033377, 69.8817958611153, 
67.2530156878065, 68.7850812516616, 68.3485155115879, 67.018949662883, 
63.4564939783664), Weight = c(241.893563180437, 162.3104725213, 
212.7408555565, 220.042470303077, 206.349800623871, 152.212155757083, 
183.927888604031, 167.971110489509, 175.92944039571, 156.399676387112
), BMI = c(0.0443566151469252, 0.0343082174614673, 0.0387343292394288, 
0.0427654457094595, 0.0422547891767963, 0.033653156898047, 0.0388739862001733, 
0.0359564180086832, 0.039169072415755, 0.0388404008602306), probability = c(5.77831234737499e-06, 
0.605952546493327, 2.62595199514618e-05, 0.000362873417265588, 
0.00461190097404834, 0.911068673692331, 0.0496119303175197, 0.352335117615303, 
0.139124546478089, 0.343426515632885)), row.names = c(NA, 10L
), class = "data.frame")

Answer 1

Хотя я не могу проверить это в вашем конкретном примере, поскольку он не является минимально воспроизводимым, я могу поделиться этим кодом, который работает на одной из моих текущих производственных FlexDashboards, которая представляет собой таблицу данных, созданную в renderDT вместо renderDataTable чтобы избежать конфликтов имен. В этом примере data_set() реактивен.

Прокрутка контролируется scrollX а также scrollY опции:

renderDT({
  datatable(data_set(), style='bootstrap', 
    class='table-condensed', editable=FALSE, rownames=FALSE,
    options = list(
         scrollX = '400px', scrollY='360px', 
         searchHighlight=TRUE, order=list(0, 'asc'),
  ))
})

Answer 2

Вот пример моего кода с renderDataTableа также scrollYработающий. Я использую реактивный df, который обновляется из этого раздела.

      renderDataTable({
  # Table only updates after the df as it is wrapped in an 
  # eventReactive
  if (!(is.null(query_data$$df))) {
    query_data$df %>% 
      select(JobID, PartID, `Short Desc`)
  }
},
options = list(
  scrollY = "43vh",
  dom = "ft",
  fixedColumns = TRUE,
  autoWidth = TRUE,
  ordering = TRUE,
  pageLength = -1)
)

Ключевой частью является получение правильных вариантов, domопция позволяет установить довольно много параметров dom = "ft"включает фильтр и размещает его над таблицей.

pageLength = -1отображает все данные в файле df.

Вы должны проверить https://datatables.net/ для получения дополнительной информации