如何通过其名称来调用反应式对象？

Question

是否有任何方法可以通过名称来调用反应数据？例如我们可以通过get（“ mtcars”）来调用'mtcars'。我已经尝试过但是出现了一些错误：

library(shiny)
ui <- fluidPage(
  actionButton("act_do", "Create Reactive Data"),
)

server <- function(input, output){

  observeEvent(input$act_do,{
    data <- reactiveValues(mt = mtcars)
    print(get("data$mt"))
  })
}

shinyApp(ui,server)

Answer 1

你可以

server <- function(input, output){

  observeEvent(input$act_do,{
    data <- reactiveValues(mt = mtcars)
    print(get("mt", envir=as.environment(reactiveValuesToList(data))))
  })

}