if(interactive()){
ui <- fluidPage(
clearableTextInput("input1", "This is a input box", style = "width: 50%;"),
verbatimTextOutput("out1")
)
server <- function(input, output, session) {
output$out1 <- renderPrint(input$input1)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab