100 lines
3.1 KiB
R
100 lines
3.1 KiB
R
# utils/error_codes.R
|
|
# 结构化错误码，便于 LLM 自愈
|
|
|
|
ERROR_CODES <- list(
|
|
# 业务错误（可被 Planner 修复）
|
|
E001_COLUMN_NOT_FOUND = list(
|
|
code = "E001",
|
|
type = "business",
|
|
message_template = "列名 '{col}' 在数据中不存在",
|
|
user_hint = "请检查变量名是否拼写正确"
|
|
),
|
|
E002_TYPE_MISMATCH = list(
|
|
code = "E002",
|
|
type = "business",
|
|
message_template = "列 '{col}' 类型应为 {expected}，实际为 {actual}",
|
|
user_hint = "该列包含非数值数据，请检查数据格式"
|
|
),
|
|
E003_INSUFFICIENT_GROUPS = list(
|
|
code = "E003",
|
|
type = "business",
|
|
message_template = "分组变量 '{col}' 应有 {expected} 个水平，实际有 {actual} 个",
|
|
user_hint = "分组变量的取值个数不符合要求"
|
|
),
|
|
E004_SAMPLE_TOO_SMALL = list(
|
|
code = "E004",
|
|
type = "business",
|
|
message_template = "样本量 {n} 不足，至少需要 {min_required}",
|
|
user_hint = "数据量太少，无法进行统计分析"
|
|
),
|
|
|
|
# 统计计算错误（用户友好映射）
|
|
E005_SINGULAR_MATRIX = list(
|
|
code = "E005",
|
|
type = "business",
|
|
message_template = "矩阵计算异常: {details}",
|
|
user_hint = "变量之间可能存在多重共线性，建议移除高度相关的变量"
|
|
),
|
|
E006_CONVERGENCE_FAILED = list(
|
|
code = "E006",
|
|
type = "business",
|
|
message_template = "模型未能收敛: {details}",
|
|
user_hint = "算法未能找到稳定解，可能需要调整参数或检查数据"
|
|
),
|
|
E007_VARIANCE_ZERO = list(
|
|
code = "E007",
|
|
type = "business",
|
|
message_template = "变量 '{col}' 方差为零",
|
|
user_hint = "该列的所有值都相同，无法进行比较"
|
|
),
|
|
|
|
# 系统错误（需人工介入）
|
|
E100_INTERNAL_ERROR = list(
|
|
code = "E100",
|
|
type = "system",
|
|
message_template = "内部错误: {details}",
|
|
user_hint = "系统繁忙，请稍后重试"
|
|
),
|
|
E101_PACKAGE_MISSING = list(
|
|
code = "E101",
|
|
type = "system",
|
|
message_template = "缺少依赖包: {package}",
|
|
user_hint = "请联系管理员"
|
|
)
|
|
)
|
|
|
|
# R 原始错误到错误码的映射字典
|
|
R_ERROR_MAPPING <- list(
|
|
"system is computationally singular" = "E005_SINGULAR_MATRIX",
|
|
"did not converge" = "E006_CONVERGENCE_FAILED",
|
|
"constant" = "E007_VARIANCE_ZERO"
|
|
)
|
|
|
|
# 构造错误响应（含用户友好提示）
|
|
make_error <- function(error_def, ...) {
|
|
params <- list(...)
|
|
msg <- error_def$message_template
|
|
for (name in names(params)) {
|
|
msg <- gsub(paste0("\\{", name, "\\}"), as.character(params[[name]]), msg)
|
|
}
|
|
return(list(
|
|
status = "error",
|
|
error_code = error_def$code,
|
|
error_type = error_def$type,
|
|
message = msg,
|
|
user_hint = error_def$user_hint
|
|
))
|
|
}
|
|
|
|
# 尝试将 R 原始错误映射为友好错误码
|
|
map_r_error <- function(raw_error_msg) {
|
|
for (pattern in names(R_ERROR_MAPPING)) {
|
|
if (grepl(pattern, raw_error_msg, ignore.case = TRUE)) {
|
|
error_key <- R_ERROR_MAPPING[[pattern]]
|
|
return(make_error(ERROR_CODES[[error_key]], details = raw_error_msg))
|
|
}
|
|
}
|
|
# 无法映射，返回通用内部错误
|
|
return(make_error(ERROR_CODES$E100_INTERNAL_ERROR, details = raw_error_msg))
|
|
}
|