Shiny应用响应式函数内使用if else语句始终触发else分支问题求助

• 第一个错误：extract_name(input$fsChoice)的用法完全不符合预期。substitute(input$fsChoice)捕获的是表达式本身，deparse后得到的永远是固定字符串"input$fsChoice"，不可能匹配到"fdr"，所以判断条件永远为FALSE，只会进入else分支。你不需要写这个额外的函数，直接判断input$fsChoice的值本身即可。
• 第二个错误：if分支里的过滤条件dplyr::filter(noninput$fsChoice > 1.30103)写法错误，noninput不是你定义的对象，且用变量指定dplyr操作的列名，需要用特殊语法实现动态取值。

plotly_data <- reactive({
  # 直接判断下拉框选中值是否包含fdr字符串
  if (grepl("fdr", input$fsChoice)) {
    edited_data <- fs_data %>%
      dplyr::select(region, hemi, metric, all_of(input$fsChoice)) %>%
      dplyr::filter(metric == input$metric,
                    hemi == input$hemi,
                    # 动态取input$fsChoice对应的列做过滤
                    .data[[input$fsChoice]] > 1.30103)
  } else {
    edited_data <- fs_data %>%
      dplyr::select(region, hemi, metric, all_of(input$fsChoice)) %>%
      dplyr::filter(metric == input$metric,
                    hemi == input$hemi)
  }
  return(edited_data)
})

• all_of(input$fsChoice)是dplyr推荐的动态指定列名的写法，可以避免环境变量冲突的警告
• .data[[变量名]]是dplyr 1.0.0之后支持的标准动态列取值语法，适配响应式变量的场景
• 原来自定义的extract_name函数完全不需要使用，直接调用input$xxx就能拿到对应的输入值，不需要额外做表达式解析。

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