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 output")
)
server <- function(input, output, session) {
output$number_out <- renderText(input$number)
observeEvent(
input$delete,
removeOutput("number_out")
)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab