DT: Dynamically change column values based on selectinput from another column in R shiny app

by

I’d suggest using dataTableProxy along with replaceData to realize the desired behaviour. This is faster than re-rendering the datatable.

Furthermore, re-rendering the table seems to be messing around with the bindings of the selectInputs.

Also please note: for this to work I needed to switch to server = TRUE

library(DT)
library(shiny)

selectInputIDs <- paste0("sel", 1:10)

initTbl <- data.frame(
  A = c(1:10),
  B = LETTERS[1:10],
  C = c(11:20),
  D = LETTERS[1:10],
  Feedback = sapply(selectInputIDs, function(x){as.character(selectInput(inputId = x, label = "", choices = c(1, 2, 3, 4), selected = 1))}),
  Score = rep(10, 10)
)

ui <- fluidPage(
  DT::dataTableOutput(outputId = 'my_table')
)

server <- function(input, output, session) {
  
  displayTbl <- reactive({
      data.frame(
        A = c(1:10),
        B = LETTERS[1:10],
        C = c(11:20),
        D = LETTERS[1:10],
        Feedback = sapply(selectInputIDs, function(x){as.character(selectInput(inputId = x, label = "", choices = c(1, 2, 3, 4), selected = input[[x]]))}),
        Score = sapply(selectInputIDs, function(x){as.integer(input[[x]])*10})
      )
  })
  
  output$my_table = DT::renderDataTable({
    DT::datatable(
      initTbl, escape = FALSE, selection = 'none', rownames = FALSE,
      options = list(paging = FALSE, ordering = FALSE, scrollx = TRUE, dom = "t",
                     preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
                     drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
      )
    )
  }, server = TRUE)
  
  my_table_proxy <- dataTableProxy(outputId = "my_table", session = session)
  
  observeEvent({sapply(selectInputIDs, function(x){input[[x]]})}, {
    replaceData(proxy = my_table_proxy, data = displayTbl(), rownames = FALSE) # must repeat rownames = FALSE see ?replaceData and ?dataTableAjax
  }, ignoreInit = TRUE)
  
}

shinyApp(ui = ui, server = server)

result

More Related Contents:

  1. Shiny: what is the difference between observeEvent and eventReactive?
  2. Dynamically creating tabs with plots in shiny without re-creating existing tabs
  3. render dropdown for single column in DT shiny
  4. Shiny: Merge cells in DT::datatable
  5. R Shiny set DataTable column width
  6. Remove ‘search’ option but leave ‘search columns’ option
  7. Edit datatable in Shiny with dropdown selection for factor variables
  8. RStudio Shiny list from checking rows in dataTables
  9. Starting Shiny app after password input
  10. embed iframe inside shiny app
  11. How to save plots that are made in a shiny app
  12. drop-down checkbox input in shiny
  13. Hosting and setting up own shiny apps without shiny server
  14. ‘Reset inputs’ button in shiny app
  15. How to change ‘Maximum upload size exceeded’ restriction in Shiny and save user file inputs?
  16. Subset based on variable column name
  17. How do I show the y value on tooltip while hover in ggplot2
  18. Favicon in Shiny
  19. Control the height in fluidRow in R shiny
  20. RStudio Shiny ERROR: there is no package called “shinydashboard”
  21. R Shiny Dynamic Input
  22. Get the event which is fired in Shiny?
  23. Add values to a reactive table in shiny
  24. shiny leaflet ploygon click event
  25. How to add Rtools\bin to the system path in R
  26. Edit datatable in shiny with dropdown selection (for DT v0.19)
  27. Are there global variables in R Shiny?
  28. ToolTip when you mouseover a ggplot on shiny
  29. Get selected rows of Rhandsontable
  30. Shiny – observe() triggered by dynamicaly generated inputs

Leave a Comment