kable，可弹，可huxto html：强制单个线上的单元内容显示

Question

我希望我的单元格中的内容显示在一条线上。我正在将rmarkDown用于HTML。 但是，无论我使用哪个软件包（kable，flextable，huxtable），都忽略了列宽度规范，并介绍了换行符，取得非常丑陋和不可读的结果。 在HTML中，有一个下拉框，总宽度不应该是问题。我只希望结果可读。

library(kableExtra)
library(flextable)

table = as.data.frame(matrix(rep("value [value1 - value2]",20), ncol = 10))

kbl(table) %>%
  kable_paper() %>%column_spec(1:ncol(table), width = "3.5cm", bold = TRUE, italic = TRUE)%>%
  scroll_box(width = "1000px", height = "500px")

tb = flextable(table)%>% flextable::width(width = 10)
knit_print(tb)

Answer 1

使用Flextable，此代码力（请注意autofit（）的使用情况）在一行上显示显示：

library(flextable)

as.data.frame(matrix(rep("value [value1 - value2]", 20), ncol = 10)) %>% 
  flextable()%>% theme_box() %>% autofit()

这将在HTML窗口中产生表显示，此窗口的宽度有限（窗口的大小或HTML页面的最大宽度）。如果浏览器窗口的宽度小于表的宽度，则将压缩以适合窗口或可用空间。

如果您需要水平滚动（已经用于预订，但还没有用于所有HTML格式），则可以将此CSS代码添加到您的R Markdown中，以便可以滚动（即将集成到Flextable） ）：

```{css echo=FALSE}
.flextable-shadow-host{
  overflow: scroll;
  white-space: nowrap;
}
```

带有它的html'r markdown'文档：

---
output: html_document
---


```{css echo=FALSE}
.flextable-shadow-host{
  overflow: scroll;
  white-space: nowrap;
}
```

```{r}
library(flextable)

as.data.frame(matrix(rep("value [value1 - value2]", 20), ncol = 10)) |> 
  flextable()|> theme_box() |> autofit()
```

Answer 2

这是huxtable等效的：

as_hux(table) |>  
  set_width(1) |> 
  set_wrap(FALSE) |>
  set_col_width("3.5cm") |> 
  quick_html()

它使桌子宽尽可能宽：