## Only run examples in interactive R sessions
if (interactive()) {
shinyApp(
ui = fluidPage(
textInputAddon(inputId = "id", label = "Label", placeholder = "Username", addon = icon("at")),
verbatimTextOutput(outputId = "out")
),
server = function(input, output) {
output$out <- renderPrint({
input$id
})
}
)
}
Run the code above in your browser using DataLab