R Shiny: Handle Action Buttons in Data Table

by

Does this accomplish what you’re trying to do?

library(shiny)
library(DT)

shinyApp(
  ui <- fluidPage(
    DT::dataTableOutput("data"),
    textOutput('myText')
  ),

  server <- function(input, output) {

    myValue <- reactiveValues(employee="")

    shinyInput <- function(FUN, len, id, ...) {
      inputs <- character(len)
      for (i in seq_len(len)) {
        inputs[i] <- as.character(FUN(paste0(id, i), ...))
      }
      inputs
    }

    df <- reactiveValues(data = data.frame(

      Name = c('Dilbert', 'Alice', 'Wally', 'Ashok', 'Dogbert'),
      Motivation = c(62, 73, 3, 99, 52),
      Actions = shinyInput(actionButton, 5, 'button_', label = "Fire", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
      stringsAsFactors = FALSE,
      row.names = 1:5
    ))


    output$data <- DT::renderDataTable(
      df$data, server = FALSE, escape = FALSE, selection = 'none'
    )

    observeEvent(input$select_button, {
      selectedRow <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
      myValue$employee <<- paste('click on ',df$data[selectedRow,1])
    })


    output$myText <- renderText({

      myValue$employee

    })

  }
)

More Related Contents:

  1. R shiny passing reactive to selectInput choices
  2. dynamically add plots to web page using shiny
  3. How to listen for more than one event expression within a Shiny eventReactive handler
  4. shiny 4 small textInput boxes side-by-side
  5. R Shiny: reactiveValues vs reactive
  6. Shiny: what is the difference between observeEvent and eventReactive?
  7. how to insert new line in R shiny string
  8. Rtools is not being detected from RStudio
  9. how to create two independent drill down plot using Highcharter?
  10. Is it possible to stop executing of R code inside shiny (without stopping the shiny process)?
  11. Formatting reactive data.frames in Shiny
  12. Advantages of reactive vs. observe vs. observeEvent
  13. Adding a company Logo to ShinyDashboard header
  14. What is “object of type ‘closure’ is not subsettable” error in Shiny?
  15. Deploying R shiny app as a standalone application [closed]
  16. How to embed an image in a cell a table using DT, R and Shiny
  17. Show content for menuItem when menuSubItems exist in Shiny Dashboard
  18. How to listen for more than one event expression within a Shiny observeEvent
  19. Downloading png from Shiny (R)
  20. Shiny renderUI selectInput returned NULL
  21. Scale and size of plot in RStudio shiny
  22. Are there global variables in R Shiny?
  23. Data input via shinyTable in R shiny application
  24. Add data to ggvis tooltip that’s contained in the input dataset but not directly in the vis
  25. Shiny – observe() triggered by dynamicaly generated inputs
  26. displaying TRUE when shiny files are split into different folders
  27. R shiny sliderInput with restricted range
  28. Display HTML file in Shiny App
  29. Possible to show console messages (written with `message`) in a shiny ui?
  30. date format in tooltip of ggplotly

Leave a Comment