R Shiny中selectInput选值后提取对应数值运算的服务端代码如何编写

首先给出包含服务端的完整可运行代码：

# 提前定义的映射数据框
df <- data.frame(item = c('Item1', 'Item2'),
                 value = c(10, 20))

# 前端UI部分（和你提供的参考一致）
ui <- fluidPage(
  sidebarPanel(
    selectInput(inputId = 'name',
                label = 'select item:',
                choices = df$item)
  ),
  textOutput('value') 
)

# 核心服务端代码
server <- function(input, output, session) {
  output$value <- renderText({
    # 防止初始未选择时出现报错
    req(input$name)
    # 提取选中项对应的数值
    selected_val <- df$value[df$item == input$name]
    # 和给定示例值5相乘后输出
    paste0("计算结果：", selected_val * 5)
  })
}

# 启动应用
shinyApp(ui, server)

• renderText是专门给textOutput输出文本内容的渲染函数，里面的代码会在依赖的input$name变化时自动重新运行
• req(input$name)会判断选择框是否有选中值，没有选中时会停止后续代码运行，避免应用启动时报错
• 如果你熟悉dplyr语法，提取对应数值的逻辑也可以换成：selected_val <- df %>% filter(item == input$name) %>% pull(value)

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