Удаление / вставка элемента пользовательского интерфейса в Shiny

Question

У меня сейчас надоедливая проблема. Я создал наблюдающий ({}) для добавления / удаления некоторых элементов пользовательского интерфейса на основе чередующихся нажатий кнопки, однако после добавления элемента последующее нажатие кнопки кнопка не может удалить его.

    server <- function(input, output,session) {
global <- reactiveValues(add.A = FALSE)
 observeEvent(input$add.A,{
global$add.A = !global$add.A
if(global$add.A){
  insertUI(
  selector = "#heading",
  where = "afterEnd",

  ui =  div(id = "alleles.A",
          fluidRow(
            column(width=6,
              div(div(class="ddown",uiOutput("Recipient.HLA.A.1")),div(class="ddown",uiOutput("Recipient.HLA.A.2")))
            ),
            column(width=6,
              div(div(class="ddown",uiOutput("Donor.HLA.A.1")),div(class="ddown",uiOutput("Donor.HLA.A.2")))
          )
         )
       )
     )
    }else{
      removeUI(selector = "#alleles.A")
    }
  })
}