相关疑难解决方法(0)

我有一个工作的R应用程序,我想使用Shiny在线提供.我的应用程序接收文件作为输入,因此客户端通过ui.R上传文件.server.R接收文件,然后我想调用我的应用程序.但是,当我使用source()时,myApp不知道我在server.R中收到的文件并抛出错误:找不到对象.这是server.R的代码

shinyServer(function(input, output) {

   output$contents <- renderTable({
   inFile <- input$file1
   if (is.null(inFile))
      return(NULL)
   else{
      tdata <- as.matrix(read.table(inFile$datapath))
      head(tdata, n = 2)
      source("./CODE/run_myApp.r")
   }
  })
})

但是,myApp不包含tdata(在我当前的应用程序中需要作为输入文件).

我开发了一个R脚本,现在我想将这个R脚本与Shiny app连接起来.即,我正在开发我的GUI in Shiny但我正面临连接RScript和Shiny的问题.我想使用Shiny app调用RScript的输出.

我查看了RStudio Shiny应用程序开发教程,但它没有帮助我进行连接.有什么方法可以解决这个问题吗？

如果可能的话,你可以给我代码"如何使用闪亮的应用程序点击按钮点击RScript".

更新:

你能用这样的东西来帮助我:我想使用闪亮的应用程序(GUI)上传csv文件,然后基于CSV文件,我已经制作了一个使用plot()函数的RScript,这个图是我想要显示的通过Shiny app GUI.