Shiny Datatable上的無線電按鈕，帶有data.frame/data.table

Question

從this example（我認爲它取代了SO上的其他一些答案），除了我試圖使用數據外，幾乎都有一個複製粘貼。表而不是矩陣。我無法弄清楚它爲什麼不起作用。

library(shiny) 
library(DT) 
shinyApp(
    ui = fluidPage(
    title = 'Radio buttons in a table', 
    DT::dataTableOutput('foo'), 
    verbatimTextOutput('sel') 
), 
    server = function(input, output, session) { 

    m = data.table(
     month1 = month.abb, 
     A = '1', 
     B = '2', 
     C = '3', 
     QWE = runif(12) 
    ) 
     m[, A := sprintf(
     '<input type="radio" name="%s" value="%s"/>', 
     month1, m[, A] 
    )] 
     m[, B := sprintf(
     '<input type="radio" name="%s" value="%s"/>', 
     month1, m[, B] 
    )] 
     m[, C := sprintf(
     '<input type="radio" name="%s" value="%s"/>', 
     month1, m[, C] 
    )] 

    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(i, tab, row) { 
      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$sel = renderPrint({ 
     str(sapply(month.abb, function(i) input[[i]])) 
    }) 
    } 
) 

Answer 1

問題是與rownames。你有一個額外的rownames列，它可以將所有閃亮的屬性添加到它，但它不是一個單選按鈕，它只是文本，所以它打破了（儘管它應該會拋出一個錯誤）。

這裏是一個工作版本：

library(shiny) 
library(DT) 
shinyApp(
    ui = fluidPage(
    title = 'Radio buttons in a table', 
    DT::dataTableOutput('foo'), 
    verbatimTextOutput('sel') 
), 
    server = function(input, output, session) { 

    m = data.table(
     month1 = month.abb, 
     A = '1', 
     B = '2', 
     C = '3', 
     QWE = runif(12) 
    ) 
    m[, A := sprintf(
     '<input type="radio" name="%s" value="%s"/>', 
     month1, m[, A] 
    )] 
    m[, B := sprintf(
     '<input type="radio" name="%s" value="%s"/>', 
     month1, m[, B] 
    )] 
    m[, C := sprintf(
     '<input type="radio" name="%s" value="%s"/>', 
     month1, m[, C] 
    )] 

    output$foo = DT::renderDataTable(
     m, escape = FALSE, selection = 'none', server = FALSE, rownames=FALSE, 
     options = list(dom = 't', paging = FALSE, ordering = FALSE), 
     callback = JS("table.rows().every(function(i, tab, row) { 
        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$sel = renderPrint({ 
     str(sapply(month.abb, function(i) input[[i]])) 
    }) 
    } 
)