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 - это (именованный) символьный вектор с colspan в качестве значений.

Таким образом, мы можем построить его, используя setNamesследующим образом:

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