R knitr:：kable：避免一列的文本换行

我正在rmarkdown/html文档中创建一个表，其中的列由knitr参数动态选择

---
output: html_document
---

```{r echo=FALSE}
library(knitr)
header <- c("Col1", "Col2", "Col3", "Col4", "Col6") # actually comes from knitr parameter
testdata <- data.frame(Col1 = c("text", "very long long long long long    long long long long long text", "texttext"),
             Col2 = c("looooooooooooooooooooooooooooooooooooooooooong long long long long long text", "textxyz", "abc"),
             Col3 =  1:3,
             Col4 = c("2018-11-01", "2018-11-02", "2018-11-03"),
             Col5 = c(100000, 200000, 300000),
             Col6 = c(123, 456, 789))
testdata <- testdata[,colnames(testdata) %in% header]
kable(testdata)
```

---

您可以使用

kableExtra:：column\u spec

：

library(kableExtra)
kable(testdata) %>% column_spec(column = 4, width = "100px")

---

由于列号可能会改变（列的动态选择），完整的答案应该包含类似于

col\u fix的内容
library(kableExtra)
kable(testdata) %>% column_spec(column = 4, width = "100px")