R Shiny: текстовый указатель мыши для строк данных - PullRequest
Новая
       43

R Shiny: текстовый указатель мыши для строк данных

0 голосов
/ 14 января 2019

Есть ли способ отображения текста при наведении курсора мыши на строку (запись) на дисплее с данными? Пройдя несколько похожих вопросов по StackOverflow, я нашел 2 примера кода, один из которых отображает текст при наведении курсора на ячейку столбца, а второй - при наведении курсора мыши на всю строку.

Пример кода для отображения текста при наведении на ячейку столбца: 

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(

    DT::dataTableOutput("table2")

  ),
  server = function(input, output) {

    output$table2<-DT::renderDataTable({
      responseDataFilter2_home<-iris[,c(4,3,1)]
      displayableData<-DT::datatable(responseDataFilter2_home,options = list(rowCallback = JS(
        "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
        "var full_text = aData[1] + ','+ aData[2]",
        "$('td:eq(1)', nRow).attr('title', full_text);",
        "}")
      ))#, stringAsFactors = FALSe, row.names = NULL)
    },server = TRUE, selection = 'single', escape=FALSE,options=list(paging=FALSE,searching = FALSE,ordering=FALSE,scrollY = 400,scrollCollapse=TRUE,
                          columnDefs = list(list(width = '800%', targets = c(1)))),rownames=FALSE,colnames="Name")

    }
 )

enter image description here

Я также нашел другой код, который выделяет всю строку при наведении:

Пример кода для выделения строки при наведении мыши 

#rm(list = ls())
library(shiny)
library(DT)

ui <- basicPage(
  tags$style(HTML('table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {background-color: pink !important;}')),
  mainPanel(DT::dataTableOutput('mytable'))
)

server <- function(input, output,session) {

  output$mytable = DT::renderDataTable(    
    datatable(mtcars)
  ) 
}
runApp(list(ui = ui, server = server))

enter image description here

В моем случае я хочу отображать текст при наведении курсора мыши на строку данных. Как мне это сделать?

1 Ответ

0 голосов
/ 30 января 2019

Вот, пожалуйста: 

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