...
I have shiny selectInput with choices and a button. so when I click on the button shiny input has to be remove. But it is removing don't know why it is!. I have used shiny removeUI like below:
library(shiny)
# Define UI
ui <- fluidPage(
actionButton("rmv", "Remove UI"),
selectInput(
inputId=paste("FilterOperator",1,sep = "_"),
label = "",
choices=sort(unique(c("Begins with","Equals to","Not Equals to","Contains","Not Contains"))),
multiple=F,
selectize = F
)
)
# Server logic
server <- function(input, output, session) {
observeEvent(input$rmv, {
removeUI(
selector = paste("FilterOperator",1,sep="_"),
multiple = TRUE,
immediate = TRUE,
session
)
})
}
# Complete app with UI and server components
shinyApp(ui, server)
Is it removeUI wont work on selectInput? please help me anyone on this.