if(interactive()){
library(shiny)
ui <- inputUI('id')
server <- function(input,output,session){
input <- inputServer("id", mtcars[1,])
observe({print(input())})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab