| clearableTextInput | R Documentation | 
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%;"
)
inputId | 
 ID  | 
label | 
 text label above  | 
value | 
 default value  | 
placeholder | 
 place holder text when value is empty  | 
style | 
 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.