library(shiny)
library(DT)
ui <- fluidPage(
DTOutput("myout"),
selectInput('sel',"choose input frame",
choices = c("mtcars","iris","PlantGrowth"))
)
server <- function(input, output, session) {
datatablecontent <- reactiveVal()
output$myout <- renderDT({
req(datatablecontent())
})
observeEvent(input$sel,
datatablecontent(get(input$sel)))
}
shinyApp(ui, server)