Extracting values of selected radio buttons in shiny DT

Question

Background : I have a shiny DT in a modaldialog box conataining radio buttons in columns, I want to do some processing based on the selections of radio button in DT

Problem : I am unable to figure out how to extract the value of the selected radiobutton from DT

Below is the reproducible exmaple for the same.

library(shiny)
library(DT)
library(data.table)
library(shinyWidgets)

shinyApp(
  ui = fluidPage(
    title = 'Radio buttons in a table',

    actionBttn(inputId = "btnContinue",label = "Continue",style = "material-flat")

  ),
  server = function(input, output, session) {

    dtWithRadioButton <- reactiveValues(dt = NULL)

    observeEvent(input$btnContinue,{

      m = matrix(
        as.character(1:5), nrow = 12, ncol = 5, byrow = TRUE,
        dimnames = list(month.abb, LETTERS[1:5])
      )
      for (i in seq_len(nrow(m))) {
        m[i, ] = sprintf(
          '<input type="radio" name="%s" value="%s"/>',
          month.abb[i], m[i, ]
        )
      }

      dt <- data.table(m)
      v <- LETTERS[1:12]

      dt <- cbind(v,dt)

      dtWithRadioButton$dt <- dt # setting reactive value

      showModal(modalDialog(
        size = "l",easyClose = F,fade = T,
        renderDataTable(datatable(dt, selection = "none",escape = FALSE, options = list(dom = 't') , rownames = F)),
       footer =  tagList(
          actionBttn(inputId = "btnCancel",label = "Cancel",style = "float",size="sm",color="warning"),
          actionBttn(inputId = "btnProcess",label = "Process",style = "float",size="sm",color="success")
        )
      ))
    })

  observeEvent(input$btnProcess,{

    dt <- dtWithRadioButton$dt # accessing the reactive value

    # do some processing based on the radio button selection

  })

  observeEvent(input$btnCancel,{
    removeModal(session)
  })




  }
)

On click of 'Continue' button a pop-up containing a shiny DT with radio button is displayed to user. Once user makes selection using radio button. I want to run a process on click of btnProcess

score 2 · Accepted Answer · answered Sep 05 '18 at 17:16

You can do:

library(shiny)
library(DT)
library(shinyWidgets)

m <- matrix(
  as.character(1:5), nrow = 12, ncol = 5, byrow = TRUE,
  dimnames = list(month.abb, LETTERS[1:5])
)
for (i in seq_len(nrow(m))) {
  for(j in seq_len(ncol(m))) {
    m[i, j] <- sprintf(
      '<input type="radio" name="%s" value="%s" %s/>',
      month.abb[i], m[i, j], ifelse(j==1, 'checked="checked"', "")
    )
  }
}

shinyApp(

  ui = fluidPage(
    title = 'Radio buttons in a table',

    actionBttn(inputId = "btnContinue", label = "Continue", 
                 style = "material-flat")

  ),

  server = function(input, output, session) {

    dtWithRadioButton <- reactiveValues(dt = m)

    observeEvent(input$btnContinue,{

      showModal(modalDialog(
        size = "l", easyClose = FALSE, fade = TRUE,
        DTOutput("datatable"),
        footer =  tagList(
          actionBttn(inputId = "btnCancel", label = "Cancel", 
                       style = "float", size="sm", color="warning"),
          actionBttn(inputId = "btnProcess", label = "Process", 
                       style = "float", size="sm", color="success")
        )
      ))
    })

    output$datatable <- renderDT(
      datatable(dtWithRadioButton$dt, selection = "none", escape = 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());"),
                rownames = TRUE), 
      server = FALSE
    )

    observeEvent(input$btnProcess,{
      dt <- dtWithRadioButton$dt # accessing the reactive value
      # do some processing based on the radio button selection
      for(month in month.abb){
        print(paste0(month, ": ", input[[month]]))
      }
    })

    observeEvent(input$btnCancel,{
      removeModal(session)
    })

  }
)

Then the value of the selected button is in input$Jan for the first row, input$Feb for the second row, etc.

Perfect! it works, I didn't know we could use the object return by output block in a modal. — Rohit Saluja, Sep 06 '18 at 03:29
@RohitSaluja You're welcome. Please consider [accepting the answer](https://stackoverflow.com/help/someone-answers) if it satisfies you. Otherwise your question will be considered as unanswered by the site. — Stéphane Laurent, Sep 06 '18 at 08:31

Extracting values of selected radio buttons in shiny DT

1 Answers1

Linked