There are columns with names in it. I just want to have only 3 words and after that there should be Read more... hyperlink which will show remaining text

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);",
                          "}")))
        })
      }
    )