flexboard闪亮工作台水平和垂直滚动条不工作

我刚刚将一个csv数据导入到R的flexdashboard和Shining中，并希望在其中一个图表网格中显示该表，下面是我正在使用的代码。我希望垂直和水平滚动条出现，但似乎这些都不起作用，你知道我错在哪里吗

对于数据，您可以暂时使用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"))
```

---

虽然我无法在您的特定示例中测试这一点，因为它不是最小可复制的，但我可以在我当前生产的FlexDashboard之一中共享这段代码，它是在

renderDT

而不是

renderDataTable

中创建的数据表，以避免命名冲突。在本例中，

data\u 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'),
  ))
})

---

虽然我无法在您的特定示例中测试这一点，因为它不是最小可复制的，但我可以在我当前生产的FlexDashboard之一中共享这段代码，它是在

renderDT

而不是

renderDataTable

中创建的数据表，以避免命名冲突。在本例中，

data\u 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'),
  ))
})

---

下面是我的代码示例，其中

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中的所有数据

---

您应该查看更多信息

这里是我的代码示例，其中

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中的所有数据

---

您应该查看更多信息

谢谢您的帮助。我修改了你的代码并更新了我的问题。但是你能在你的代码中解释一下

“选项”

吗？谢谢你的帮助。我修改了你的代码并更新了我的问题。但是，您能否在代码中对

“选项”

进行解释？