闪亮的双复选框输入

Question

类似于drop-down checkbox input in shiny，我一直在寻找创建带有两个可点击列的checkboxInput()的选项，这样，如果用户需要按“ X”分组，则单击“ X”尚未标记为已选中。示例：

我可以这样做：

checkboxInput("select", "Selected variables", c("A", "B", "C"))

checkboxInput("group", "Grouping variables", c("A", "B", "C"))

我希望这样：

checkboxInputDouble("vars", "Variables", 
 select = c("A", "B", "C"), 
 group = c("A", "B", "C"), 
 select_2 = c("A", "B")
 group_2 = c("B")
)