filter hierarchy in shiny app

function(input, output, session, data, data_name, data_label, selected = NULL) {
    # Filter output
    output$filter = renderUI({
        checkboxGroupInput(inputId = 'filter_select',
                           label = data_label,
                           choices = data$name
        )
    })

    # Filter event
    observeEvent(input$filter_select, {
        selected <<- input$filter_select
        updateSelectInput(session, "select", label = data_label,
                          choices = data[data$name %in% input$filter_select, data_name])
    })
    
}