R/DynamicChecklist.R

In irisweyermenkhoff/toyota-idv-functions: Risk Reporting and Toolbox Calculation Functions

DynamicChecklist <- function(list_values, list_selected){

	id = deparse(substitute(list_values))

 renderUI({
                    prettyCheckboxGroup(
                    inputId = id,
                    label = "",
                    choices = names(list_values),
                    selected = list_selected,
                    fill = TRUE)
  })
	
	
    }