## Only run this example in interactive R sessions
if(interactive()){
ui <- selectInputDT_UI('id')
data <- data.frame(id = 1:3, name = letters[1:3])
server <- function(input,output, session){
selected = selectInputDT_Server('id', choices = data, selected = data[1,] )
observe({print(selected())})
}
shiny::shinyApp(ui, server)
}
Run the code above in your browser using DataLab