如何将ShinyApp中的变量传递给外部R脚本并实现接收调用

核心问题：你当前的myscript.R仅定义了myscript函数，没有触发执行的逻辑，因此即使传入变量source脚本，也不会自动运行处理逻辑。可选择以下任意一种方案修改：

方案1：推荐写法（直接调用预加载函数） #

你已经在全局代码中通过source("myscript.R", local = TRUE)加载了myscript函数，不需要重复读取脚本，直接在按钮触发时传入参数调用即可，无需修改myscript.R：

# 仅需修改server部分代码，冗余的reactiveVal定义也可以删掉
server <- function(input, output, session) {
  observeEvent(input$runScript, { 
    # 直接调用函数，传入输入框的text值
    myscript(text = input$text)
  })
}

该方案性能更高，逻辑更简洁，适合绝大多数场景。

方案2：每次点击重新加载执行全脚本 #

如果你的实际场景要求每次运行都必须重新读取执行整个myscript.R文件，不需要预加载函数，可以按如下修改：

第一步：修改myscript.R，去掉函数封装，直接使用传入的变量 #

# myscript.R 修改后内容
myname <- text
print(myname)   # 保留原有实际处理逻辑即可

第二步：简化server代码，不需要reactiveVal中转 #

server <- function(input, output, session) {
  observeEvent(input$runScript, { 
    # 将输入的text变量封装为环境传入source
    source("myscript.R", local = list2env(list(text = input$text)))
  })
}

内容的提问来源于stack exchange，提问作者EmaK