R блестящее наведение мыши на все ячейки таблицы

1

Как я могу получить текст наведения мыши для всех ячеек таблицы (не для имен столбцов). У меня есть datatable с 3 столбцами. При наведении курсора на ячейку третьего столбца необходимо отобразить объединенное содержимое 1-го и 2-го столбцов этой конкретной строки. Я попытался изучить пакет DT для достижения того же, но без успеха. Все советы или у нас есть библиотека, которая поддерживает зависание столы.

Теги:
shiny
dt

1 ответ

1
Лучший ответ

Для этого вам нужно использовать rowCallback. Вот простой пример того, чего вы хотите достичь:

library(shiny)

shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("mtcarsTable")
    ),
  server = function(input, output) {

    output$mtcarsTable <- DT::renderDataTable({
      DT::datatable(datasets::mtcars[,1:3], 
                    options = list(rowCallback = JS(
                      "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
                      "var full_text = aData[0] + ','+ aData[1] + ',' + aData[2] + ','+ aData[3];",
                      "$('td:eq(3)', nRow).attr('title', full_text);",
                                            "}")
                    )
      )

    })
  }
)

Надеюсь это поможет!

  • 0
    Спасибо @SBista. Я могу добиться этого несколько дней назад с помощью аналогичного подхода. Нужно быстрое решение, мне также нужно изменить курсор мыши на указатель, когда пользователь наводит курсор на ячейки строки 3-го столбца. Какие-нибудь советы.
  • 0
    Можно добиться этого с помощью CSS - "$ ('td: eq (5)', nRow) .css ('cursor', 'pointer');",
Показать ещё 3 комментария

Ещё вопросы

Сообщество Overcoder
Наверх
Меню