library(crosstalk)
sd <- SharedData$new(chickwts)
filter_select("feedtype", "Feed type", sd, ~feed)