r - 在 R 中使用带有 Shiny 的 flexdashboard 使 DT (DataTable) 响应

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'))
    ```

Answer 1

怎么样

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