R DT 灵活的表格宽度答案

【问题标题】：R DT Flexible Table WidthR DT 灵活的表格宽度
【发布时间】：2017-06-27 21:17:14
【问题描述】：

我想使用 DT 创建一个在浏览器窗口更改时不会更改宽度的数据表。下面的示例几乎完成了我想要做的事情，除了第一列之外，所有列宽都被锁定，这仍然是灵活的。我希望锁定所有列而不指定每列的宽度（以像素为单位）。

library(DT)
library(dplyr)

datatable(mtcars,
          options = list(
                autowidth = TRUE
           )) %>%
  formatStyle(columns = 1:ncol(mtcars),
      `width` = "100%")

【问题讨论】：

您想将此嵌入网站吗？在这种情况下，您可以将 datatable 包装在具有固定宽度的 HTML 容器中以进行归档。
我想在 .Rmd 文件中使用输出。我已经在使用容器参数，以便该表从不同的表继承多级标题。因此我真的很希望找到一个不涉及容器参数的解决方案。

标签： r dt

【解决方案1】：

以下Rmd 文档为数据表提供了 100 像素的固定宽度

---
output: html_document
---

```{r}
shiny::div(
  width = "100px",
  DT::datatable(mtcars))
```

shiny中的用法类似

shiny::shinyApp(
  ui = shiny::div(
    width = "100px",
    DT::datatable(mtcars)), 
  server = function(...){}
)

【讨论】：

我不相信第一个块的功能如上所述，表格仍然填充页面的整个宽度并且如果我将其设置为 1px 而不是 100px 则不会改变。此外，我不想指定固定数量的像素，我希望表格自行调整大小，但不要扩展到整个页面。