R Shiny中基于selectizeInput实现Vlookup功能的问题求助

问题背景 #

使用R Shiny开发Web应用，已导入Excel数据框，需根据用户选中的ID展示对应date和colour的竖版精简表格。

原数据框结构 #

ID      date        colour
1231    1972/02/28  red
1314    1966/01/18  blue
1476    1980/11/18  green
2356    1995/03/09  orange
1332    1991/09/10  white

已实现的侧边栏组件 #

sidebarPanel(selectizeInput("ID","Select ID",choices = DF$ID, selected = "1332"))

需求示例 #

选中ID=2356时，表格需显示：

ID      2356
date    1995/03/09
colour  orange

尝试代码及报错 #

尝试的代码：

webapp_table = data.frame(matrix(ncol = 1,nrow = 2))
x2 = c("Date","Colour")
row.names(df2) = x2

webapp_table[1,1] = reactive({req(input$policynumber)
                     dt = as.Date(DF$date[which(DF$ID== input$ID)])
                     return(dt)})

报错信息：

Error in x[[jj]][iseq] <- vjj :
incompatible types (from closure to logical) in subassignment type fix

解决方案 #

错误原因 #

直接将reactive()返回的闭包（函数对象）赋值给普通数据框元素，导致类型不匹配——reactive生成的是响应式对象，需在响应式上下文（如render*函数）中调用获取具体值。

完整实现代码 #

library(shiny)
# 模拟导入的Excel数据框（实际使用时替换为read_excel等导入代码）
DF <- data.frame(
  ID = c(1231, 1314, 1476, 2356, 1332),
  date = c("1972/02/28", "1966/01/18", "1980/11/18", "1995/03/09", "1991/09/10"),
  colour = c("red", "blue", "green", "orange", "white"),
  stringsAsFactors = FALSE
)

ui <- fluidPage(
  sidebarPanel(
    selectizeInput("ID", "Select ID", choices = DF$ID, selected = "1332")
  ),
  mainPanel(
    tableOutput("vertical_table")
  )
)

server <- function(input, output) {
  # 响应式筛选选中ID对应的行
  selected_data <- reactive({
    req(input$ID)
    # 匹配ID，若原ID为字符型则无需as.numeric转换
    DF[DF$ID == as.numeric(input$ID), ]
  })

  # 渲染竖版表格
  output$vertical_table <- renderTable({
    data_row <- selected_data()
    # 转置行数据为竖版结构
    transposed_df <- as.data.frame(t(data_row), stringsAsFactors = FALSE)
    # 设置列名，显示行名
    colnames(transposed_df) <- "值"
    transposed_df
  }, rownames = TRUE)
}

shinyApp(ui, server)

关键说明 #

1. selected_data作为响应式对象，会在用户切换ID时自动重新筛选对应行数据
2. 通过t()转置筛选后的单行数据，直接得到竖版结构
3. renderTable中设置rownames = TRUE，保留原数据框的列名作为竖版表格的行标题

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