Как заменить * в A * B символом умножения в HTML-таблице kable / kableextra

Question

Я пытаюсь заменить звездочку в строке в ячейке таблицы на символ умножения.Я могу заставить это работать с kable, но оно не будет работать, если я попытаюсь использовать kable_styling.На картинке, которую я предоставил, мне пришлось вручную редактировать html-файл, чтобы сделать таблицу справа.

Что я пытаюсь сделать ...

Я использую RStudio 1.1.463 с R 3.6.0 и kableExtra 1.1.0 на компьютере с Windows 10.

Я пробовал gsub("\\*", " × ", ...) и gsub("\\*", " \\× ", ...)

с kable(...) и kable(..., escape = F)

с или без kable_styling.(см. код)

--- output: html_document: df_print: kable self_contained: no pdf_document: keep_tex: no word_document: default ---

library(knitr)
library(kableExtra)

Predictor <- c("A", "B", "A*B")
Statistic <- c(0.8365, 0.8843, -0.9303)
WTest <- data.frame(Predictor = Predictor, Statistic = Statistic)
WTest$Predictor <- gsub("\\*", " &times; ", WTest$Predictor)

kable(WTest) %>% 
kable_styling(bootstrap_options = "striped", full_width = FALSE, position = "left")

Я ожидал, что полученный HTML-код будет содержать:

A × B

, но фактический результатis:

A × B

Я получаю правильный результат, если использую kable(WTest, escape = F) и удаляю kable_styling.Но тогда я теряю загрузочное форматирование ...