R Shiny中的无功负载

Question

给定数据集

a<-1
b<-2
c<-42
d<- a+b*c

save(file="data.RData",list=ls())

我希望能够使用无功负载一次加载它们，并且可以根据需要使用它们

我的代码看起来像

ui_test <- shinyUI({

fluidPage(fluidRow(
fileInput(inputId = "generated_data",label=NULL,buttonLabel= h4(strong("Load your data here")),accept = ".RData",placeholder = NULL),
    hr(),
    verbatimTextOutput("test1"),
    verbatimTextOutput("test2"),
    verbatimTextOutput("test3")
  ))  
})

server_test <- shinyServer(function(input,output,session){
  observeEvent(input$generated_data,{
    load(input$generated_data$datapath)
  })

  output$test1<-renderText({if (!is.null(input$generated_data)) a+b else "No input"})
  output$test2<-renderText({if (!is.null(input$generated_data)) c else "No input"})
  output$test3<-renderText({if (!is.null(input$generated_data)) d else "No input"})
})

shinyApp(ui=ui_test,server=server_test)

但是当我上传RData文件时它似乎不起作用

  

警告：renderText中出错：找不到对象'b'