将闪亮对象传递给 R 脚本答案

【问题标题】：Passing Shiny Object to R script将闪亮对象传递给 R 脚本
【发布时间】：2021-05-08 04:10:40
【问题描述】：

有没有一种方法可以将 Shiny 对象传递给嵌入式或外部 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"))
}

Passed_R_code.R 以 - 开头

ME_DATE <- as.Date(ME_DATE, format="%Y-%m-%d")

我也试过as.character。

我得到的错误是 -

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

显然传递的 ME_DATE 不是采用 YYYY-MM-DD 格式的值，而是一些函数。我希望可能有一个步骤/功能来转换它。任何帮助表示赞赏？

【问题讨论】：

标签： r shiny

【解决方案1】：

我犯了错误，没有在反应式中分配 ME_DATE，然后没有将源声明为 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)
}

我注意到这里的答案 - https://stackoverflow.com/a/54572066/6877763

【讨论】：