在渲染UI中进行循环

Question

下面的示例代码中是否有任何问题。我正在Flexdashboard中尝试此操作。我想做的是。我有一个具有4列（ColA，ColB，ColC和ColD）的数据框df。 ColA和ColB是因素，其余部分是数字 我在仪表盘中放置了1个名为“变量”的过滤器，如下所示。现在，我计划进行一些被动的输入。就像我从第一个过滤器中选择ColA一样，现在第二个过滤器应该弹出，并带有所有ColA值的“级别”。对于ColB同样。我在下面结合了for循环的地方尝试了以下代码（下面的代码只是整个代码集的一部分）。我在这里做什么错

```{r}
h6(selectInput("se1","Variables",choices = c("",names(filter(df))),width = 150))
w <- list()
output$filter2 <- renderUI({
  sa <- names(Filter(is.factor,df))
  for (i in sa)
  {
  if (input$se1 == i) {
    label = "Levels"
    h6(selectInput("b",label,choices = c("",levels(factor(df[,i]))),width = 150))
  }}
})
uiOutput("filter2")
```