R Shiny如何响应式动态source函数并切换输入时清空已加载对象

核心思路是创建独立的专属环境存储动态加载的函数，避免污染全局/Shiny运行环境，切换文件夹时直接清空该环境即可完全移除旧函数，无残留风险。

修改后可运行代码 #

library(shiny)
library(here)

ui <- fluidPage(
  selectInput(inputId = "sel.folder", label = "Select a folder:", 
              # 测试时可直接指定choices = c("Dummy_Folder", "Test_Folder")
              choices = c(dir("../")[which(!(dir("../") %in% c("app")))]),
  textOutput("test")
)

server <- function(input, output) {
  # 创建专属环境存储动态加载的函数
  dyn_env <- new.env()
  
  # 监听文件夹选择变化，动态加载函数
  observeEvent(input$sel.folder, {
    # 先清空环境中已有的旧函数，完全清除上一次加载的所有对象
    rm(list = ls(dyn_env), envir = dyn_env)
    # 获取当前选中文件夹下的所有函数文件
    func_files <- list.files(here(input$sel.folder, "Functions"), full.names = TRUE)
    # 逐行source到专属环境，避免污染其他运行环境
    for (f in func_files) {
      source(f, local = dyn_env)
    }
  })
  
  # 测试函数是否存在，注意指定查询的环境为我们创建的专属环境
  output$test = renderText({ exists("myFunc", envir = dyn_env) })
}

shinyApp(ui = ui, server = server)

关键说明 #

• 后续需要调用已加载的函数时，使用dyn_env$函数名()的形式显式调用即可，可避免不同文件夹下同名函数的冲突问题
• 如果需要直接调用函数不需要加前缀，可在source完成后添加attach(dyn_env)代码，使用完可调用detach(dyn_env)卸载环境
• 若确实需要将函数加载到全局环境的场景，可将dyn_env替换为.GlobalEnv即可，注意该方式存在覆盖全局已有同名变量的风险

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