R Shiny

Question

我想在我的R markdown Shiny报告中使用以下radioButtons方案：

```{r, echo=FALSE}
fluidRow(
  br(),
  column(3, radioButtons("optVarPheno", "Variables", choices = c("A1", "A2", "A3"), selected = "A1")),
  column(3, radioButtons("optVarScore", "Score", choices = c("EXTENSIVE", "MODERATE", "CONTROL"), selected = "EXTENSIVE")),
  column(3, radioButtons("optVarPheno", "Group", choices = c("B1", "B2", "B3", "B4"), selected = "")),
  column(3, radioButtons("optVarScore", "Score", choices = c("HIGH", "MEDIUM", "LOW"), selected = ""))

)

fluidRow(
  column(12,
    renderText({

      selvar <- sprintf("%s_%s", input$optVarPheno, input$optVarScore)
      sprintf("Selected var: %s", selvar)

    })
  )
)
```

单选按钮的行为与预期一致。第1列和第3列通过共享相同的Id以及第2和第4列进行分组。但它只会在我从前两列中选择时做出反应，我可以看到例如“选择的var：A1_MODERATE”。如果我点击第3列和第4列中的元素，则没有任何反应。消息“Selected var：”不会改变。

我在这里缺少什么？

提前致谢！