uiChange <- reactive({
  input$a
  input$b

  cat("UI CHANGEn")

  return(TRUE)
})