有没有什么方法可以通过名字来调用反应式数据?例如,我们可以通过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)
发布于 2018-08-01 10:00:29
你可以做到
server <- function(input, output){
observeEvent(input$act_do,{
data <- reactiveValues(mt = mtcars)
print(get("mt", envir=as.environment(reactiveValuesToList(data))))
})
}
https://stackoverflow.com/questions/51630233
复制