An UI component with a "X" button in the end to clear the entire
entered text. It works the same as Textinput
.
clearableTextInput(
inputId,
label = "",
value = "",
placeholder = "",
style = "width: 100%;"
)
ID
text label above
default value
place holder text when value is empty
additional CSS styles you want to apply
a shiny component
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)
}