1

给定一个数据集

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”

4

0 回答 0