shinyServer(function(input, output, session) {
  observe({
    # TRUE if input$controller is even, FALSE otherwise.
    x_even <- input$controller %% 2 == 0
    updateCheckboxInput(session, "inCheckbox", value = x_even)
  })
})Run the code above in your browser using DataLab