闪亮：如何分隔带有标题的单选按钮列表

Question

现在我有这样的东西：

wellPanel(
            titlePanel(h3("Common Plots")),
            # Bar Plots
            radioButtons(
                ns("selected_graph"), 
                label = h4("Bar Plots"),
                choices = barChoices,
                selected = 'bar_1'
            ),

            # Scatter Plots
            radioButtons(
                ns("selected_graph"), 
                label = h4("Scatter Plots"),
                choices = scatterChoices
            ),

            # Other
            radioButtons(
                ns("selected_graph"), 
                label = h4("Other Plots"),
                choices = otherChoices
            )
        )

看起来像：

此处的要点是使单选按钮与标题（条形图，散点图等）很好地分开，但仍会更新相同的值-因此您只能选择一个单个单选按钮，一切都会适当更新。然后，我将该值作为反应式返回：

# Return the choice user selects
sidePanel <- function(input, output, session) {
    selected_graph <- reactive({input$selected_graph})
    return(selected_graph)
}

最终发生的是，只有 first 组中的单选按钮注册。我可以在第一组中的选项之间单击，然后相应地进行更新，但是当我在其他两组中的任意一个选项之间单击时，什么也没有发生。如何获得这些单选按钮以更新相同的值？