kableExtra ::阿拉伯语单词不add_header_above正确呈现

Question

我想在add_header_above的kableExtra功能使用阿拉伯语的话：

library(kableExtra)

x1 <- knitr::kable(head(mtcars), "html")

Test2 <- c(" ", مواطنين = "5", `غير مواطنين` = "6")
Test3 <- c(`\textarabic{}` = " ", `\textarabic{مواطنين}` = "5",
`\textarabic{غير مواطنين}` = "6")

add_header_above(x1, Test2, escape = FALSE)

add_header_above(x1, Test3, escape = FALSE)

然而，用阿拉伯文写着不能正确渲染。有没有解决的办法？

Answer 1

从?kableExtra::add_header_above：

header与合并单元格作为值A（命名）字符向量。

因此，我们可以建造它使用setNames如下：

library(kableExtra)
x1 <- knitr::kable(head(mtcars), "html")
head_vec<-c("مواطنين", "غير مواطنين")
add_header_above(x1, c('',setNames(c(5,6),head_vec)))