choose_segment <-  reactive({

  Multiple conditions for dropdown{Due to security cant share the exact code.}

  })

uiOutput(choose_segment())

output$chooseSegment1 <- renderUI({
  choose_segment()
  })
  output$chooseSegment2 <- renderUI({
    choose_segment()
  })