Shiny：从名称列表中创建一个 reactiveValues

Question

是否可以生成一个reactiveValues，其中变量名由某个列表list_of_names 给出？例如，这些变量可以存储一个布尔值，指示相应变量的状态。

假设我有一个列表x：

x <- lapply(LETTERS, function(i) TRUE)
names(x) <- LETTERS

我能否从x 生成一个reactiveValues rv，其行为类似于x？

我没能做到这一点，我所能想到的只是这样的：

ui <- fluidPage(
  textOutput("boolean")  
)

server = function(input, output, session){
  nms <- LETTERS[1:10]

  ### lines that I would change
  rv <- reactiveValues(A = TRUE)
  for (n in nms) {rv[[n]] <- TRUE}
  ###

  output$boolean <- renderText(rv[["D"]])
}

shinyApp(ui,server)

它有效，但我确信必须有一种更简单和“更干净”的方法来做到这一点，因为x 和rv 非常相似。感谢任何可以帮助我的人。

Answer 1

一个简单的方法是调用你的向量作为函数 reactiveValues 的参数：

ui <- fluidPage(
  textOutput("boolean")  
)

server = function(input, output, session){
  x <- as.list(rep(T,10))
  names(x) <- LETTERS[1:10]
  
  # x as arguments of reactiveValues function
  rv <- do.call("reactiveValues",x)
  
  # still works
  output$boolean <- renderText(rv[["D"]])
}

shinyApp(ui,server)

EDIT ：对我来说，保持向量的原始顺序是不可能的。另一种方法是将它保存在其他地方（如果可能），然后在需要时调用它：

ui <- fluidPage(
  textOutput("boolean")  
)

server = function(input, output, session){
  x <- as.list(rep(T,10))
  names(x) <- rev(LETTERS[1:10])
  true_order <- levels(factor(names(x),names(x)))
  
  # x as arguments of reactiveValues function
  rv <- do.call("reactiveValues",x)
  
  # still works
  output$boolean <- renderText({
    p <- names(x)
    paste0(p[sapply(true_order,function(x,p){which(p == x)},p=p)], collapse = "-")
  }
  )
}