Есть ли способ выделить искомые слова блестящими данными разных цветов?

Question

Пользователь может ввести несколько слов в textInput, разделенных пробелами "", и слова будут выделены желтым цветом. Я хотел бы иметь разные цвета для разных слов, которые пользователь может напечатать.

example_data <- data.table(words = c("on", "scone", "wrong", "stone"), 
                           description = c("The word on", "Scone is not on.", "Not on either", "Not here at all"))

ui <- fluidPage(

  # App title ----
  titlePanel("Document Search and Retrieval"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(
          ),

    # Main panel for displaying outputs ----
    mainPanel(
      textInput("word_select", label = "Word to search"),
      dataTableOutput("word_searched")
    )
  )
)

server <- function(input, output,session) {
  output$word_searched <- renderDataTable({
    datatable(
      example_data, 
      options = list(searchHighlight = TRUE, 
                     search = list(regex = TRUE, 
                                   search = tolower(input$word_select)))
    )
  })
}