Plumber API调用多源文件时参数传递及环境异常求助

你的问题核心是source()函数的执行环境配置错误，以及脚本间参数传递的方式不当，导致变量、函数无法正常访问。以下是具体修正步骤：

1. 核心错误原因 #

• 默认情况下source()会在全局环境执行脚本，但Plumber的API函数是在独立的封闭环境中运行的，因此脚本无法访问API函数内的req变量。
• 你尝试的source("R Scripts/selection.r", req)是错误用法：source()的第二个参数是逻辑值local，并非用于传递参数，这种写法会破坏脚本的执行环境，导致基本语法（如赋值<-）都无法正常解析。

2. 修正后的代码结构 #

主Plumber API脚本 #

#* @post /test
function(req) {
  # 加载依赖包，指定在当前API函数环境中执行
  source("R Scripts/packages.r", envir = environment())
  # 加载自定义工具函数
  source("R Scripts/functions.r", envir = environment())
  # 加载业务逻辑函数
  source("R Scripts/selection.r", envir = environment())
  source("R Scripts/calculation.r", envir = environment())
  source("R Scripts/graphing.r", envir = environment())
  
  # 提取用户输入的名称（假设前端通过JSON传递name字段）
  selected_name <- req$body$name
  
  # 按顺序执行业务逻辑，传递参数
  filtered_data <- filter_by_name(selected_name)
  calculated_data <- compute_metrics(filtered_data)
  result_plot <- generate_trend_plot(calculated_data)
  
  # 返回结果（Plumber支持直接返回ggplot对象、数据框等）
  list(
    filtered_data = filtered_data,
    calculation_result = calculated_data,
    plot = result_plot
  )
}

各子脚本的修改 #

packages.r（仅加载依赖）

library(tidyverse)
library(data.table) # 若使用fread需加载

selection.r（改为函数接收参数）

filter_by_name <- function(target_name) {
  # 读取原始数据
  raw_data <- fread("name.csv")
  # 按名称过滤
  raw_data %>% filter(name == target_name)
}

calculation.r（计算逻辑封装为函数）

compute_metrics <- function(data) {
  data %>%
    summarise(
      avg_value = mean(value, na.rm = TRUE),
      total_sum = sum(value, na.rm = TRUE),
      record_count = n()
    )
}

graphing.r（绘图逻辑封装为函数）

generate_trend_plot <- function(data) {
  ggplot(data, aes(x = date, y = value)) +
    geom_line(color = "#2c3e50") +
    labs(
      title = paste("数据趋势：", unique(data$name)),
      x = "日期",
      y = "数值"
    ) +
    theme_minimal()
}

3. 关键注意事项 #

• 所有source()调用必须添加envir = environment()，确保脚本在当前API函数的环境中执行，才能访问函数内的变量和已加载的包。
• 子脚本尽量封装为函数，通过参数传递数据，避免直接执行全局代码，减少环境冲突。
• 确保脚本路径正确：R Scripts/xxx.r是相对于Plumber API启动目录的路径，若路径错误会导致加载失败。

内容的提问来源于stack exchange，提问作者Gaetano Dona-Jehan