将对象传递给R脚本

有没有一种方法可以将闪亮的对象传递给嵌入式或外部R脚本？比如说，若我在ui中创建了一个dateInput（比如说，ME_DATE），并尝试稍后在服务器中将其传递到源代码中，那个么该怎么做呢

ui <- fluidPage(
sidebarLayout(
    sidebarPanel(
dateInput("ME_DATE_output",label=h2("Execution Date"), value="2020-05-29")
)))

server = function(input, output) { 
ME_DATE_GUI <- reactive({input$ME_DATE_output})
Code_loc <- "K:/Codes/"
ME_DATE <<- renderPrint({ ME_DATE_GUI() })
source(paste0(Code_loc,"Passed_R_code.r"))
}

显然，传递给我的日期不是采用YYYY-MM-DD格式的值，而是某种函数。我希望有一个步骤/函数来转换这个。

---

感谢您的帮助？

我犯了错误，没有以被动方式为我指定日期，然后又没有将源代码声明为

local=TRUE

-

ui <- fluidPage(
sidebarLayout(
    sidebarPanel(
dateInput("ME_DATE_output",label=h2("Execution Date"), value="2020-05-29")
)))

server = function(input, output) { 
ME_DATE_GUI <- reactive({ME_DATE <-input$ME_DATE_output})
Code_loc <- "K:/Codes/"
source(paste0(Code_loc,"Passed_R_code.r"),local=TRUE)
}

ui
Error in as.Date.default: do not know how to convert 'ME_DATE' to class “Date”

ui <- fluidPage(
sidebarLayout(
    sidebarPanel(
dateInput("ME_DATE_output",label=h2("Execution Date"), value="2020-05-29")
)))

server = function(input, output) { 
ME_DATE_GUI <- reactive({ME_DATE <-input$ME_DATE_output})
Code_loc <- "K:/Codes/"
source(paste0(Code_loc,"Passed_R_code.r"),local=TRUE)
}