如何从Shiny基于dataframe的selectInput获取选中项主键？

问题描述 #

在Shiny应用中使用selectInput，选项来自包含主键test_id和标题test_title的数据库dataframe，希望向用户展示标题，但用户选择时能获取对应的主键用于后续逻辑。当前仅能获取选中的标题值，无法得到主键。测试代码如下：

library(DT)
library(tidyverse)
library(shiny)

test_id <- c(1, 2, 3)
test_title <- c("a", "b", "c")

test_df <- data.frame(test_id, test_title)
test_df <- column_to_rownames(test_df, var = "test_id")

ui <- fluidPage(
  selectInput("test", "test", choices = test_df),
  textOutput("selectedItem")
)

server <- function(input, output, session) {
  observeEvent(input$test, {
    output$selectedItem <- renderText(input$test)
  })
}

shinyApp(ui, server)

解决方案 #

问题出在selectInput的choices参数设置上：直接传入dataframe时，Shiny会默认使用列值作为选项的显示文本和返回值。要实现“显示标题，返回主键”的需求，需要使用命名向量来定义choices——向量的值为test_id（后台要获取的主键），向量的名称为test_title（用户看到的标题）。

修改后的完整代码如下：

library(DT)
library(tidyverse)
library(shiny)

test_id <- c(1, 2, 3)
test_title <- c("a", "b", "c")

test_df <- data.frame(test_id, test_title)

# 创建命名向量：名称是标题，值是主键
select_choices <- setNames(test_df$test_id, test_df$test_title)

ui <- fluidPage(
  selectInput("test", "选择测试项", choices = select_choices),
  textOutput("selectedItem")
)

server <- function(input, output, session) {
  observeEvent(input$test, {
    # 此时input$test返回的是对应的test_id
    output$selectedItem <- renderText(paste("选中的主键是：", input$test))
  })
}

shinyApp(ui, server)

说明 #

• setNames(test_df$test_id, test_df$test_title)生成了一个命名向量，例如c("a"=1, "b"=2, "c"=3)，selectInput会将向量的名称作为选项显示给用户，而用户选择后，input$test会返回向量对应的值（即主键）。
• 不需要将dataframe转换为行名结构，直接使用原始dataframe构建命名向量即可，逻辑更清晰。

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