Shiny - true or false value when check a checkbox in datatable

问题

i have problem with R shiny code, what i must do, when i want to see the true or false value in checkbox? because when i try print(input$row1) the result is NULL, and when i give check in the checkbox there are no respon in print statement. this is the code :

library(shiny)
library(DT)
mymtcars = mtcars
mymtcars$id = 1:nrow(mtcars)
runApp(
  list(ui = pageWithSidebar(
    headerPanel('Examples of DataTables'),
    sidebarPanel(

    ),
    mainPanel(
      uiOutput("mytable")
    )
  )
  , server = function(input, output, session) {

    output$mytable = renderUI({
      addCheckboxButtons <- paste0('<input type="checkbox" id="row', mymtcars$id, '">',"")
      yyy<- cbind(mymtcars[, names(mymtcars[,2:4]), drop=FALSE],Pick=addCheckboxButtons)

      #try
      print(input$row1) #didnt work
      print(input$row2) #didnt work

      #Display table with checkbox buttons
      list(
      renderDataTable(yyy,
                    options = list(orderClasses = TRUE,
                                   lengthMenu = c(5, 25, 50),
                                   pageLength = 25, 
                                   callback = JS("function(table) {
                                                 table.on('change.dt', 'tr td input:checkbox', function() {
                                                 setTimeout(function () {
                                                 Shiny.onInputChange('rows', $(this).add('tr td input:checkbox:checked').parent().siblings(':last-child').map(function() {
                                                 return $(this).text();
                                                 }).get())
                                                 }, 10); 
                                                 });
    }")),escape = FALSE

                    ))
      } 
  )
    }
      )
                    )

回答1:

See short example ( only for row1)

1) You can use Shiny.bindAll

2) You need to see print in observe

 library(shiny)
library(DT)
mymtcars = mtcars
mymtcars$id = 1:nrow(mtcars)
runApp(
  list(ui = pageWithSidebar(
    headerPanel('Examples of DataTables'),
    sidebarPanel(
      checkboxGroupInput('show_vars', 'Columns to show:', names(mymtcars),
                         selected = names(mymtcars))
      ,textInput("collection_txt",label="Foo")
    ),
    mainPanel(
      DT::dataTableOutput("mytable")
    )
  )
  , server = function(input, output, session) {

    observe({
      print(input$row1)
    })

    output$mytable = DT::renderDataTable({
      #Display table with checkbox buttons
      DT::datatable(cbind(Pick=paste0('<input type="checkbox" id="row', mymtcars$id, '" value="', mymtcars$id, '">',""), mymtcars[, input$show_vars, drop=FALSE]),
                    options = list(orderClasses = TRUE,
                                   lengthMenu = c(5, 25, 50),
                                   pageLength = 25 ,

                                   drawCallback= JS(
                                     'function(settings) {
                                         Shiny.bindAll(this.api().table().node());}')
                    ),selection='none',escape=F)


    } )

  })
)

来源：https://stackoverflow.com/questions/37886104/shiny-true-or-false-value-when-check-a-checkbox-in-datatable

标签

Shiny