R Shiny removeUI не работает на selectInput - PullRequest
0 голосов
/ 01 февраля 2019

У меня есть блестящий 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?Пожалуйста, помогите мне с этим.

Добавлено:

Когда я пытаюсь получить значение после удаления, используя приведенный выше код, он все равно возвращает значение вместо нуля.

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...