fest, ob DT Datentabelle in glänzend App

Question

Hier geklickt wird, ist ein funktionierendes Beispiel meines besten Versuchs Tabelle Click-Ereignis zu erhalten:

library(shiny) 
library(DT) 

runApp(shinyApp(
    ui = fluidPage(DT::dataTableOutput('table')), 
    server = function(input, output, session) { 
    output$table <- DT::renderDataTable({ 
     dt <- data.frame(a = 1) 
     datatable(dt, rownames = FALSE, selection = 'none') 
    }) 
    observeEvent(input$table_cell_clicked, { 
     print(Sys.time()) 
    })} 
)) 

Das Problem ist, dass observeEvent nur, wenn der Benutzer klickt auf der Zelle reagiert, die von dem unterscheidet, zuvor geklickt. Gibt es eine Möglichkeit, ein Ereignis bei einem Tabellenklick zu erhalten?

Answer 1

ich denke, es s

hilfreich sein können

Versuchen hinzufügen callback mit Shiny.onInputChange und smth hinzufügen, die alle Zeit verändert (rnd)

smt wie

JS("table.on('click.dt', 'td', function() { 
      var row_=table.cell(this).index().row; 
      var col=table.cell(this).index().column; 
      var rnd= Math.random(); 
      var data = [row_, col, rnd]; 
      Shiny.onInputChange('rows',data); 
    });") 

und es dann gerne verwenden:

library(shiny) 
library(DT) 
runApp(shinyApp(
    ui = fluidPage(DT::dataTableOutput('table')), 
    server = function(input, output, session) { 
    output$table <- DT::renderDataTable({ 
     datatable(data.frame(a = c(1,2),b=c(2,3)), rownames = FALSE, selection = 'none', callback = JS("table.on('click.dt', 'td', function() { 
      var row_=table.cell(this).index().row; 
      var col=table.cell(this).index().column; 
      var rnd= Math.random(); 
      var data = [row_, col, rnd]; 
      Shiny.onInputChange('rows',data); 
    });") 
    )} 
    ) 

    observeEvent(input$rows, { 
     print(input$rows) 
     print(Sys.time()) 

    })} 
)) 

Dann parse alle row und col von input$rows

PS. im Index der Databücher beginnen von 0.