javascript - tabla - Agregar botón de radio para seleccionar una fila de DataTable en Shiny

seleccionar una fila de un datatable c#

Question

Necesito agregar radiButtons para seleccionar filas en Data, es decir, el radiobutton elegido debe pasarse a la entrada. No puedo usar la selección de filas incorporadas en DT. Realmente necesito usar botones de radio para seleccionar la fila. Esto es lo que se quiere:

Usando https://yihui.shinyapps.io/DT-radio/ Puedo seleccionar COLUMNAS. Es:

library(shiny)
library(DT)
shinyApp(
ui = fluidPage(
title = ''Radio buttons in a table'',
DT::dataTableOutput(''foo''),
verbatimTextOutput("test")
),
server = function(input, output, session) {
m = matrix(
  c(round(rnorm(24),1), rep(3,12)), nrow = 12, ncol = 3, byrow = F,
  dimnames = list(month.abb, LETTERS[1:3])
)
for (i in seq_len(nrow(m))) {
  m[i, 3] = sprintf(
    if_else(i == 1,
            ''<input type="radio" name="%s" value="%s" checked="checked"/>'',
            ''<input type="radio" name="%s" value="%s"/>''),
    "C", month.abb[i]
  )
}
m=t(m)

output$foo = DT::renderDataTable(
  m, escape = FALSE, selection = ''none'', server = FALSE,
  options = list(dom = ''t'', paging = FALSE, ordering = FALSE),
  callback = JS("table.rows().every(function() {
      var $this = $(this.node());
                $this.attr(''id'', this.data()[0]);
                $this.addClass(''shiny-input-radiogroup'');
 });
                Shiny.unbindAll(table.table().node());
                Shiny.bindAll(table.table().node());")
 )
output$test <- renderPrint(str(input$C))
}
)

El resultado es:

Ingenuamente, intenté eliminar m = t (m) y cambiar las filas por columnas en la devolución de llamada. Esto no funciona porque la función de devolución de llamada en el ejemplo está agregando clase e identificación a la última, que no tienen contrapartida para la columna.

¿Alguna idea?

Answer 1

Una solución "sucia" podría ser envolver toda la tabla de datos en un div con la ID C y la clase de shiny-input-radiogroup :

shinyApp(
  ui = fluidPage(
    title = ''Radio buttons in a table'',
    tags$div(id="C",class=''shiny-input-radiogroup'',DT::dataTableOutput(''foo'')),
    verbatimTextOutput("test")
  ),
  server = function(input, output, session) {
    m = matrix(
      c(round(rnorm(24),1), rep(3,12)), nrow = 12, ncol = 3, byrow = F,
      dimnames = list(month.abb, LETTERS[1:3])
    )
    for (i in seq_len(nrow(m))) {
      m[i, 3] = sprintf(
        if_else(i == 1,
                ''<input type="radio" name="%s" value="%s" checked="checked"/>'',
                ''<input type="radio" name="%s" value="%s"/>''),
        "C", month.abb[i]
      )
    }
    m
    output$foo = DT::renderDataTable(
      m, escape = FALSE, selection = ''none'', server = FALSE,
      options = list(dom = ''t'', paging = FALSE, ordering = FALSE)
    )
    output$test <- renderPrint(str(input$C))
  }
)