Format a vector of rows in italic and red font in R DT (datatable)

Question

A bit similar to this question: How to give color to a given interval of rows of a DT table?

but in my case I would like to let the user select rows in the table, th

Answer 1

Here is an attempt.

library(shiny)
library(DT)

rowCallback <- function(rows){
  c(
    "function(row, data, num, index){",
    sprintf("  var rows = [%s];", paste0(rows-1, collapse = ",")),
    "  if(rows.indexOf(index) > -1){",
    "    for(var i=1; i% selectRows(NULL)
  })

}

shinyApp(ui, server)