我可以使用R来突出显示段落中的一些单词背景颜色吗？

install.packages("shiny")
install.packages("htmltools")

library(shiny)
library(htmltools)

ui <- fluidPage(
  textInput("text", "输入段落:", value = "这是一个示例段落。"),
  textInput("highlight", "要突出显示的单词:", value = "示例"),
  verbatimTextOutput("output")
)

server <- function(input, output) {
  output$output <- renderText({
    paragraph <- input$text
    word <- input$highlight
    highlighted_paragraph <- gsub(word, paste0('<span style="background-color: yellow;">', word, '</span>'), paragraph, ignore.case = TRUE)
    HTML(highlighted_paragraph)
  })
}

shinyApp(ui, server)