Text input group and custom widgets append to left ar/and right

textInputGroup(
  textId,
  label = "",
  value = "",
  placeholder = "enter text",
  left_text = NULL,
  right_text = NULL,
  style = "width: 100%;"
)

Arguments

textId

text box id

label

text label for this input group

value

default value for the text input

placeholder

default placeholder text for the text input if no value

left_text

text or icon add to the left side

right_text

text or icon add to the right side

style

additional style add to the group

Value

text input group component

Details

If no text is specified for both left and right, the return is almost identical to clearableTextInput

Examples

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("home")),
    )

    server <- function(input, output, session) {

    }

    shinyApp(ui, server)
}