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

Question

Is there any method to call reactive data by its name? eg we can call 'mtcars' by get("mtcars"). I have tried but got some error:

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

You can do

server <- function(input, output){

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

}