Shiny应用中R函数结合SelectInput修改列类型崩溃求助

1. 修复动态列名的mutate语法 #

直接用变量名替换固定列名的写法不符合tidyverse动态列名规则，导致代码解析错误，需用tidy eval语法处理动态列名，两种可选写法：

写法一：使用!!sym()和:= #

修改observeEvent中的代码：

observeEvent(input$change_type_btn,{
    req(input$var_cambio)
    
    selected_column <- input$var_cambio

    # 用!!sym()解析动态列名，:=用于动态赋值列名
    data(data() %>% mutate(!!sym(selected_column) := as.numeric(!!sym(selected_column))))
})

写法二：使用across和all_of（更简洁） #

适合单列类型转换的场景：

observeEvent(input$change_type_btn,{
    req(input$var_cambio)
    
    selected_column <- input$var_cambio

    # across+all_of指定要转换的目标列
    data(data() %>% mutate(across(all_of(selected_column), as.numeric)))
})

2. 修复SelectInput的动态选项问题 #

如果data()是响应式值（比如reactiveVal或reactive表达式），UI中直接写choices = c(names(data()))会因初始化时数据未加载引发报错，需动态更新选项：

步骤1：修改UI中的SelectInput #

初始设置空选项：

selectInput(
    "var_cambio",
    label = "Selecciona la variable a cambiar de tipo:",
    choices = character(0), # 初始无选项
    multiple = FALSE,
    selected = NULL
)

步骤2：在Server中动态更新选项 #

添加observe监听数据变化，实时更新下拉选项：

observe({
    req(data()) # 确保数据已加载完成
    updateSelectInput(
        inputId = "var_cambio",
        choices = names(data())
    )
})

额外检查点 #

• 确保data是用reactiveVal定义的响应式变量，示例：

# 初始化响应式数据框
data <- reactiveVal(your_initial_data_frame)

• 转换数值型前可添加合法性处理，避免因无法转换的值导致崩溃：

data(data() %>% mutate(across(all_of(selected_column), ~ suppressWarnings(as.numeric(.x)))))

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