if (FALSE) { # interactive()
library(shiny)
library(shiny.destroy)
ui <- fluidPage(
numericInput("number", "Select number:", 5, 1, 10),
p("Selected number:", textOutput("number_out", inline = TRUE)),
actionButton("delete", "Remove input")
)
server <- function(input, output, session) {
output$number_out <- renderText(input$number %||% "input unavailable")
observeEvent(
input$delete,
removeInput("number", selector = ":has(> #number)")
)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab