   server = function(input, output, session) {        output$value <- renderPrint({ input$chkGrp })        observe({           if ( is.null(input$all) || input$all == 0)                return()           updateCheckboxGroupInput(session,"chkGrp",selected=choices )     