Test DT regex highlighting

test.R

devtools::install_github('lrasmus/DT', ref="423_highlight_regex")

library(shiny)
library(devtools)
library(DT)
ui <- fluidPage(fluidRow(column(12, DT::dataTableOutput("test"))))
server <- function(input, output) {
  mtcars$model = rownames(mtcars)
  rownames(mtcars) = NULL
  output$test <- renderDataTable({
    datatable(mtcars, options = list(
      searchHighlight = TRUE,
      search = list(regex = TRUE)
      #search = list(regex = FALSE)
    ))
  })
}
shinyApp(ui = ui, server = server)