DT :: datatable не загружается при объединении formatStyle () с кодом JS в блестящем приложении - PullRequest
Новая
       26

DT :: datatable не загружается при объединении formatStyle () с кодом JS в блестящем приложении

0 голосов
/ 25 мая 2020

У меня есть блестящее приложение, в котором я хочу, чтобы курсор менялся, когда пользователь наводит курсор на столбец Species, а также я хочу отформатировать этот столбец с помощью: 

%>%
        formatStyle('View',  color = 'red', backgroundColor = 'orange', fontWeight = 'bold')

Но когда я добавляю это определенное Строка кода моя таблица не загружена и застряла в режиме обработки. Этого не происходит, когда я удаляю часть JS для возможности зависания мыши. Как их объединить? 

rowCallback = JS(
                              "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
                              "var full_text = aData[1] + ','+ aData[2] + ',' + aData[3] + ','+ aData[4];",
                              "$('td:eq(5)', nRow).attr('title', full_text);", # Tool Tip
                              "$('td:eq(5)', nRow).css('cursor', 'pointer');", # Cursor icon changes to hand (pointer) on Hover
                              "}")

приложение 

library(shiny)
library(DT)

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

        output$irisTable <- DT::renderDataTable({
            DT::datatable(datasets::iris, 
                          options = list(rowCallback = JS(
                              "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
                              "var full_text = aData[1] + ','+ aData[2] + ',' + aData[3] + ','+ aData[4];",
                              "$('td:eq(5)', nRow).attr('title', full_text);", # Tool Tip
                              "$('td:eq(5)', nRow).css('cursor', 'pointer');", # Cursor icon changes to hand (pointer) on Hover
                              "}"),pageLength = 5,columnDefs = list(list(className = 'dt-left', targets = "_all"))),rownames= T,
                          selection = list(mode = 'single', target = 'cell')

            )%>%
                formatStyle('Species',  color = 'red', backgroundColor = 'orange', fontWeight = 'bold')

        })
    }
)
...