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

Question

我是使用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)
  })

app.r

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

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

非常感谢您提前