Как предотвратить выбор строки при нажатии значка в ячейке DT?

Вот обновление, которое решает проблему отсутствия выбора, о которой вы изначально спрашивали, затем пояснили, а затем упомянули проблему с использованием input$mytable_rows_selected. (Оглядываясь назад, то, что это такое... эта информация была бы фантастической в ​​исходном вопросе! Увы, мы все здесь люди.)

Чтобы решить проблему выбора, за исключением значка, вы будете использовать расширение select, установите для выбора значение none, а в options вы назначите оба:

• items - что вы хотите выбрать, итак "row" (<- этого нет в моем коде в моем комментарии)
• selector - какие html элементы вы хотите выделить (или как бы не выделять)

Вот вызов таблицы (для использования в Shiny)

output$mytable <- renderDT({           # use extensions Select
  datatable(selection = 'none', data, escape = FALSE, extensions = "Select",
            options = list(            # select rows, except for the icon
              rowID = 0, select = list(items = "row", selector = "td :not(span.expand-icon)"), 
              columnDefs = list(list(targets = 2, render = js)) # from question
            ))
}, server = F)                         # must declare non-server for the extension

Вот весь код, который я использовал для рендеринга и проверки результата.

library(shiny)
library(DT)

li <- "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum"
data <- data.frame(
  ID = 1:3,
  Description = rep(li, 3)
)

ui <- fluidPage(     # modified to accommodate testing input$mytable...
  fluidRow(
    column(6, DTOutput("mytable")),
    column(5, offset=1,
           verbatimTextOutput('print'),
           DTOutput('info'))
  )   
)
server <- function(input, output) {
  js <- JS(
    "function(data, type, row, meta) {
     if (type === 'display' && data.length > 40) {
       var truncated = data.substr(0, 38) + '...';
       var fullText = data;
       return '<span class=\"truncate\">' + truncated + '</span>' +
              '<span class=\"hidden-text\" style=\"display:none;\">' + fullText + '</span>' +
              '<span class=\"expand-icon\" style=\"cursor:pointer;\" onclick=\"' +
              'var icon = $(this); ' +
              'icon.prev().toggle(); ' +
              'icon.prev().prev().toggle(); ' +
              'icon.text(icon.text() === \\'▼\\' ? \\'▲\\' : \\'▼\\');' +
              '\">▼</span>'; 
     } else {
       return data;
     }
   }")

  output$mytable <- renderDT({           # use extensions Select
    datatable(selection = 'none', data, escape = FALSE, extensions = "Select",
              options = list(            # select rows, except for the icon
                rowID = 0, select = list(items = "row", selector = "td :not(span.expand-icon)"), 
                columnDefs = list(list(targets = 2, render = js)) # from question
              ))
  }, server = F) # must declare non-server for the extension

  # outputs added to accommodate testing input$mytable...
  output$print = renderPrint({    # show selected row index number
    print(input$mytable_rows_selected)
  }) 
    
  output$info = DT::renderDT({    # show selected rows in a new table
    index = input$mytable_rows_selected
    if (length(index)){ index2 = index[length(index)] }
    else{ index2 = index }
    data[index2, 1:2]
  })
}

shinyApp(ui, server)