当表头包含特殊字符时，R Quarto发布的HTML表中不必要的大列宽

发布于03月19日

全,

我正在try 在R Quarto中呈现一个带有包含特殊字符的标题的HTML表.通过在HTML中指定字符并将escape=FALSE传递到knitr::kable()，我可以正确地呈现表格.但是，最后一列中的列宽是基于原始字符的宽度，而不是最终呈现的字符数.

例如，下面的代码

#| eval: true

dof <- c(1, 2, 5, 10, 20, 50, 100, 1000, 10000)
df <- crossing(df1 = dof, df2 = dof) |> 
  mutate(fval = qf(0.05, df1, df2, lower.tail=FALSE)) |>
  pivot_wider(names_from=df2, values_from=fval)

knitr::kable(df, digits = 2, escape=FALSE,
    col.names=c("&nu;<sub>1</sub> / &nu;<sub>2</sub>", tail(colnames(df),-1)))

渲染为

由于列宽由原始字符ν<sub>1</sub> / ν<sub>2</sub>的数量而不是渲染字符v 1/v 2的数量决定:

有没有一种方法可以使HTML列宽自动调整到呈现内容的大小？

谢谢,

肖恩

推荐答案

你可以试试reactable:

---
format: html
---

```{r}
library(dplyr)
library(tidyr)
dof <- c(1, 2, 5, 10, 20, 50, 100, 1000, 10000)
df <- crossing(df1 = dof, df2 = dof) |> 
  mutate(fval = qf(0.05, df1, df2, lower.tail=FALSE)) |>
  pivot_wider(names_from=df2, values_from=fval)

reactable::reactable(df, 
                     defaultColDef = reactable::colDef(
    format = reactable::colFormat(digits = 1),
    align = "center",
    minWidth = 70,
    headerStyle = list(background = "#f7f7f8")
  ),
                     columns = list(
  df1 = reactable::colDef(name = "&nu;<sub>1</sub> / &nu;<sub>2</sub>", html = TRUE)
))
```