如何在R中突出显示shinydashboard中的单词？

dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tags$head(
      tags$style(HTML("
        .highlight {
          background-color: yellow;
          font-weight: bold;
        }
      "))
    ),
    # 其他内容
  )
)

dashboardBody(
  # 其他内容
  p("这是一个", span("重要", class = "highlight"), "的单词。")
)