如何突出显示includeHTML显示的文本

Question

我正在尝试创建一个反应灵敏的应用程序，当我从数据表中选择一个项目（单词对）时，该应用程序可以突出显示文本。我已经选择了数据表。我正在使用includeHTML()功能包括和显示文本文件。

是否可以在显示的文本中突出显示从数据库中选择的所有项目includeHTML()？

Answer 1

如果您想对任意HTML文件执行此操作，则可能无法使用，但这是一个纯R解决方案。使用javascript解决方案可能会更好：

library(shiny)
library(DT)

ui <- shinyUI(fluidPage(mainPanel(
  DT::dataTableOutput("test"),
  htmlOutput("html")
)))

server <- shinyServer(function(input, output, session) {
  words <- data.frame(stringsAsFactors = FALSE,
                      words = c("the", "hello", "world"))
  output$test <- DT::renderDataTable({
    words
  }, selection = list(mode = "single", target = "row"))

  text <- "This is the hello world example for this problem."

  output$html <- renderUI({
    if (is.null(input$test_rows_selected))
      return(HTML(text))

    HTML(gsub(
      words$words[input$test_rows_selected],
      paste0("<mark>",
             words$words[input$test_rows_selected],
             "</mark>"),text ))
  })
})

shinyApp(ui = ui, server = server)