render dropdown for single column in DT shiny

by

I blatantly stole the idea from Yihui’s app for including radioButtons in DT.

Code:

library(shiny)
library(DT)

ui <- fluidPage(
  title="Selectinput column in a table",
  h3("Source:", tags$a("Yihui Xie", href = "https://yihui.shinyapps.io/DT-radio/")),
  DT::dataTableOutput('foo'),
  verbatimTextOutput('sel')
)

server <- function(input, output, session) {
  data <- head(iris, 5)

  for (i in 1:nrow(data)) {
    data$species_selector[i] <- as.character(selectInput(paste0("sel", i), "", choices = unique(iris$Species), width = "100px"))
  }

  output$foo = DT::renderDataTable(
    data, 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-container');
      });
      Shiny.unbindAll(table.table().node());
      Shiny.bindAll(table.table().node());")
  )
  output$sel = renderPrint({
    str(sapply(1:nrow(data), function(i) input[[paste0("sel", i)]]))
  })
}

shinyApp(ui, server)

Output:

Output

More Related Contents:

  1. Shiny: Merge cells in DT::datatable
  2. R Shiny set DataTable column width
  3. DT: Dynamically change column values based on selectinput from another column in R shiny app
  4. Remove ‘search’ option but leave ‘search columns’ option
  5. Edit datatable in Shiny with dropdown selection for factor variables
  6. R shiny passing reactive to selectInput choices
  7. shiny 4 small textInput boxes side-by-side
  8. how to insert new line in R shiny string
  9. Rtools is not being detected from RStudio
  10. Opening Shiny App directly in the default browser
  11. Is it possible to stop executing of R code inside shiny (without stopping the shiny process)?
  12. Accept HTTP Request in R shiny application
  13. Advantages of reactive vs. observe vs. observeEvent
  14. Adding a company Logo to ShinyDashboard header
  15. What is “object of type ‘closure’ is not subsettable” error in Shiny?
  16. Deploying R shiny app as a standalone application [closed]
  17. How to embed an image in a cell a table using DT, R and Shiny
  18. Show content for menuItem when menuSubItems exist in Shiny Dashboard
  19. How to listen for more than one event expression within a Shiny observeEvent
  20. Downloading png from Shiny (R)
  21. Shiny renderUI selectInput returned NULL
  22. Scale and size of plot in RStudio shiny
  23. Data input via shinyTable in R shiny application
  24. ToolTip when you mouseover a ggplot on shiny
  25. Add data to ggvis tooltip that’s contained in the input dataset but not directly in the vis
  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