if(interactive()){
ui <- fluidPage(
textInputGroup("id1", "left", left_text = "a"),
textInputGroup("id2", "right", right_text = "b"),
textInputGroup("id3", "both", left_text = "$", right_text = ".00"),
textInputGroup("id4", "none"),
textInputGroup("id5", "icon", left_text = icon("house")),
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab