如何将变量从一个R脚本发送到另一个R脚本

我刚刚使用R，我想使用source（）函数从一个脚本调用另一个脚本，顺便说一下，传递一些参数。这是我的两个R脚本：

Server.r

library(shiny)

shinyServer(function(input, output) {

  #esta funcion guarda el csv cargado
  filedata <- reactive({
    infile <- input$datafile
    if (is.null(infile)) {

      return(NULL)
    }
    read.csv(infile$datapath, sep = ";")

  })


  filedata1 <- reactive({
    infile1 <- input$datafile1
    if (is.null(infile1)) {

      return(NULL)
    }
    read.csv(infile1$datapath, sep = ";")



  })




  observeEvent(input$do, {

    source("C:/.../app1.R", params=filedata, params=filedata1, local = TRUE)
  })

...
csv1=read.csv("filedata", sep = ";")
csv2=read.csv("filedata1", sep = ";")
...

我不知道如何将插入的.csv（filedata，filedata1）从Server.r发送到app.r

---

提前非常感谢

为什么？你所做的没有意义。您已经在Server.R中读取了csv。事实上，您甚至没有将CSV传递给

app.R

您可以将R代码放在``shinyServer`函数之外，它将在shinyApp启动时获得，或者您可以将代码放在

global.R

中，结果类似。我的代码可能没有意义，但问题是，我想从server.r读取.csv并将两者发送到app.r。想象一下这样的情况：server.r acan我可以使用source（）函数将两个变量从一个脚本发送到另一个脚本吗？我想这就是您想要的：