使用Shiny和flexdashboard使DT（DataTable）响应式的方法在R中。

Question

以下示例（文件ex.Rmd）在窗口宽度较小时会产生水平滚动条。有什么办法使表格完全响应，即去除水平滚动并将列添加到折叠信息下方？

    ---
    title: "Untitled"
    output: 
      flexdashboard::flex_dashboard:
        orientation: rows
        vertical_layout: fill
    runtime: shiny
    editor_options: 
      chunk_output_type: console
    ---

    ```{r setup, include=FALSE}
    library(flexdashboard)
    library(DT)
    ```

    Menu
    =======================================================================

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

    ### Testing  

    ```{r}
    renderDT(head(mtcars), extensions = c('Responsive'))
    ```

- Relund

---

你找到解决方案了吗？我遇到了完全相同的问题。 - Edgar

Answer 1

什么情况？

renderDT({
  datatable(head(mtcars), extensions = c('Responsive'), 
            options = list(responsive = TRUE))
})

- Stéphane Laurent

---

它似乎给出了相同的结果。我已经添加了一个输出窗口的截图。 - Relund

这个答案对我来说也没有解决同样的问题。 - Edgar