如何在R tablehtml中突出显示某些字符串？

# 安装和加载必要的包
install.packages("tableHTML")
library(tableHTML)

# 创建一个示例数据框
data <- data.frame(
  Name = c("John", "Jane", "Mike", "Emily"),
  Age = c(25, 30, 35, 40),
  City = c("New York", "London", "Paris", "Tokyo")
)

# 将数据框转换为HTML表格，并使用CSS样式突出显示字符串
table <- tableHTML(data) %>%
  add_css_conditional_column(column = "Name", condition = "value == 'John'", css = "background-color: yellow;") %>%
  add_css_conditional_column(column = "Name", condition = "value == 'Jane'", css = "background-color: orange;")

# 打印HTML表格
print(table)