R Shiny动态渲染单选按钮无法获取数据框列唯一值

radioButtons()组件的choices入参仅支持传入一维原子向量，当前代码中vards2()返回的是单列tibble（二维数据框结构），Shiny识别到传入对象为数据框时，会默认将数据框的列名作为选项渲染，因此不会展示列内存储的实际唯一值。
该问题和数据读取、列筛选逻辑无关，仅为输出结构不符合组件参数要求——select()返回的是保留数据框属性的单列子集，并非一维值向量。

• 修改vards2响应式逻辑，将单列数据框转换为一维向量，同时处理因子类型避免返回底层数值编码的异常：

vards2 <- reactive ({
  req(input$socialfiltergroup)
  recreation_visit %>%
    # 用pull直接提取列返回一维向量，替换原select逻辑
    pull(.data[[input$socialfiltergroup]]) %>%
    unique() %>%
    # 因子类型自动转字符，避免返回整数编码的bug
    as.character() %>%
    sort()
})

• 为单选按钮渲染逻辑增加非空校验，避免应用初始化阶段空值触发报错：

output$filter2 <- renderUI({
  req(vards2())
  radioButtons("fil2","Filter", choices=vards2())
})

基于提供的测试数据集验证：

• 选择分组变量为Weekday时，单选按钮将正常展示Mon、Tue、Wed...等列内唯一值
• 选择分组变量为Pub Region时，单选按钮将正常展示Central、North-west等实际值，不会再仅渲染列名。

内容的提问来源于stack exchange，提问作者Jordan Iatro