Hay columnas con nombres en ella. Solo quiero tener solo 3 palabras y después de eso debería haber Leer más... hipervínculo que mostrará el texto restante

 library(shiny) library(DT) shinyApp( ui = fluidPage( DT::dataTableOutput("table") ), server = function(input, output) { output$table <- DT::renderDataTable({ DT::datatable(iris, rownames = FALSE, options = list(rowCallback = JS( "function(row, data) {", "var full_text = 'This rows values are :' + data[0] + ',' + data[1] + '...'", "$('td', row).attr('title', full_text);", "}"))) }) } )