在 data.table 输出中突出显示字符串的一部分 R Shiny

Question

假设我有以下文本输出。使用 Quanteda kwic()，我想找到匹配模式的逐字逐句。我希望能够将输出显示为单行而不是 3 列，因此我将它们重新整形并将它们合并在一起。我希望能够突出显示字符串中的模式词。这完全可行吗？如果是这样，如何？

  # Define UI for app that draws a histogram ----
ui <- fluidPage(

  # App title ----
  titlePanel("Hello Shiny!"),



    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Histogram ----
      fluidRow(DT::dataTableOutput("table1"))

    )
  )



server= function(input,output){

  output$table1 = renderDataTable({
    y = kwic(x = data_corpus_inaugural,pattern = 'united',window = 10,valuetype = 'regex')
    y = as.data.table(y)
    y = y[,4:6]
    y$new = do.call('paste',y)
    y = y[,!c(1:3)]


  })
}

shinyApp(ui,server)

Answer 1

向@MLavoie 喊出评论中的链接。

要突出显示所选文本，请用用户提供的输入替换“da”。

   datatable(mtcars2, options = list(searchHighlight = TRUE, search = list(search = 'da')))