如何将矩阵转换为适配selectInput选项的列表

如果你已经有了包含name和id列的矩阵，可通过以下几种简洁方法转换成selectInput所需的命名列表（或命名向量，Shiny同样支持）：

方法一：用setNames快速生成（推荐） #

假设你的矩阵对象名为mat，一行代码即可完成转换：

# 生成命名向量（Shiny的selectInput可直接使用）
select_choices <- setNames(mat[, "id"], mat[, "name"])

# 若必须转换成严格的列表格式，再加一步：
select_choices <- as.list(setNames(mat[, "id"], mat[, "name"]))

方法二：循环构造列表（适合理解逻辑） #

如果想手动实现构造逻辑，可通过循环逐个赋值：

select_choices <- list()
for (row in 1:nrow(mat)) {
  select_choices[[mat[row, "name"]]] <- mat[row, "id"]
}

运行后得到的select_choices就完全符合目标格式：list(Test1 = "54754756576OE7VGV3", Test2 = "43656OYY2AF22452DL", ...)，直接传入selectInput的choices参数即可。

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