Tengo un problema dentro de una aplicación más grande, lo reduje a este repex
Tengo una tabla DT dentro de un módulo. Necesito obtener datos de las filas de esa tabla haciendo clic en ella. Para eso, uso el parámetro de devolución de llamada de DT::renderDataTable
Fuera del módulo, está bien. Dentro del módulo, no puedo recuperar los datos del evento de clic. En la consola del explorador, dice que el valor no existe, por lo que no puede registrarlo.
library(shiny) library(DT) tableUI <- function(id){ ns <- NS(id) tagList( DT::dataTableOutput(ns("mytable")) textOutput(ns("mytext")) ) } tableServer <- function(id){ moduleServer(id, function(input, output, session){ output$mytable = DT::renderDataTable({ mtcars }, callback = JS('table.on("click.dt", "tr", function() { data = table.rows(this).data().toArray(); Shiny.setInputValue("mytext1", data, {priority: "event"}); console.log(mytext1); });') ) observeEvent(req(input$mytext1), { output$mytext <- renderText(input$mytext1) }) }) } ui <- basicPage( tableUI("table1") ) server <- function(input, output) { tableServer("table1") } shinyApp(ui, server)Intenté agregar la identificación ns a la identificación setInputValue, como "mytable-mytext1", pero me da un error brillante y la aplicación ni siquiera se inicia:
Warning: Error in eval: object 'mytext1' not found [No stack trace available]Debe incluir el espacio de nombres del módulo con Shiny.setInputValue() . Menciona intentar con "mytable-mytext1" pero eso es usar la ID de la tabla, no la ID del módulo para construir el espacio de nombres. En su lugar, querrías "table1-mytext1" . Una mejor manera de construir eso sería con sessions$ns() (ver más abajo).
Además, para el ejemplo que mostró, no necesita usar una callback de llamada personalizada en primer lugar. En su lugar, puede utilizar la entrada integrada que crea DT para la última fila en la que se hizo clic.
library(shiny) library(DT) tableUI <- function(id) { ns <- NS(id) tagList( DT::dataTableOutput(ns("mytable")), textOutput(ns("mytext1")), textOutput(ns("mytext2")), ) } tableServer <- function(id) { moduleServer(id, function(input, output, session) { output$mytable <- DT::renderDataTable( mtcars, callback = JS(sprintf( 'table.on("click.dt", "tr", function() { data = table.rows(this).data().toArray(); Shiny.setInputValue("%s", data); });', session$ns("mytext1"))) ) output$mytext1 <- renderText(req(input$mytext1)) output$mytext2 <- renderText({ row <- mtcars[req(input$mytable_row_last_clicked), ] # Need to append rowname to match the JavaScript result c(rownames(row), as.character(row)) }) }) } ui <- basicPage( tableUI("table1") ) server <- function(input, output) { tableServer("table1") } shinyApp(ui, server)