У меня есть блестящий selectInput с выбором и кнопкой.поэтому, когда я нажимаю на кнопку, блестящий ввод должен быть удален.Но это удаление, не знаю, почему это так.Я использовал блестящий removeUI, как показано ниже:
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
)
print(input$FilterOperator_1) #It prints always a value instead of null
})
}
# Complete app with UI and server components
shinyApp(ui, server)
Это removeUI не будет работать на selectInput?Пожалуйста, помогите мне с этим.
Добавлено:
Когда я пытаюсь получить значение после удаления, используя приведенный выше код, он все равно возвращает значение вместо нуля.