How can I reactively add actionButtons to the tableOutput

Question

library(shiny)
# ui ##########################
ui <- fluidPage(
   fileInput("csv", label="",
      multiple = TRUE,
      accept = c("text/csv", ".csv")),
   tags$hr(),
   actionButton("show.tbl", "SHOW TABLE"),
   tableOutput("my_tbl")
   )
# server #########################
server <- function(input, output) {
   tbl <- data.frame(Example = LETTERS[1:10]) # will be reactive in reality
   output$my_tbl <- renderTable({
      if(input$show.tbl == 1)
         tbl
    })
 }
# app ######################
shinyApp(ui, server)

How can I reactively add actionButtons to the tableOutput?

Answer 1

Use DT for this purpose:

library(shiny)
library(DT)

ui <- fluidPage(
    verbatimTextOutput(outputId = 'vb'),
    dataTableOutput(outputId = 'table')
)

server <- function(input, output, session) {

    yourData <- reactive({
        return(mtcars)
    })

    output$vb <- renderPrint({
        req(input$table_rows_selected, cancelOutput = TRUE)
        row_id <- input$table_rows_selected

        row_selected <- yourData()[row_id,]

        return(row_selected)
    })

    output$table <- renderDataTable({

        datatable(
            data = yourData(),
            selection = 'single'
        )
    })
}

shinyApp(ui, server)