chore(deploy): finalize 0309 SAE rollout updates

Sync deployment documentation to the final successful SAE state and clear pending deployment checklist items. Include backend/frontend/R hardening and diagnostics improvements required for stable production behavior.

Made-with: Cursor

r-statistics-service/utils/error_codes.R

@@ -60,6 +60,12 @@ ERROR_CODES <- list(
     type = "system",
     message_template = "缺少依赖包: {package}",
     user_hint = "请联系管理员"
+  ),
+  E102_FUNCTION_NOT_FOUND = list(
+    code = "E102",
+    type = "business",
+    message_template = "找不到函数: {func}",
+    user_hint = "请检查函数名是否正确，或确认已加载相关包"
   )
 )
 
@@ -76,7 +82,7 @@ R_ERROR_MAPPING <- list(
   "not meaningful for factors" = "E002_TYPE_MISMATCH",
   "missing value where TRUE/FALSE needed" = "E100_INTERNAL_ERROR",
   "replacement has" = "E100_INTERNAL_ERROR",
-  "could not find function" = "E101_PACKAGE_MISSING",
+  "could not find function" = "E102_FUNCTION_NOT_FOUND",
   "there is no package called" = "E101_PACKAGE_MISSING",
   "cannot open the connection" = "E100_INTERNAL_ERROR",
   "singular gradient" = "E005_SINGULAR_MATRIX",
@@ -167,6 +173,34 @@ 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]]
+      
+      # E101: 提取缺失包名（there is no package called 'xxx'）
+      if (error_key == "E101_PACKAGE_MISSING") {
+        pkg <- "unknown"
+        m <- regexec("there is no package called ['\"]([^'\"]+)['\"]", raw_error_msg, ignore.case = TRUE)
+        mm <- regmatches(raw_error_msg, m)[[1]]
+        if (length(mm) >= 2) pkg <- mm[2]
+        return(make_error(ERROR_CODES[[error_key]], package = pkg))
+      }
+      
+      # E102: 提取找不到的函数名（could not find function "xxx"）
+      if (error_key == "E102_FUNCTION_NOT_FOUND") {
+        func <- "unknown"
+        m <- regexec("could not find function ['\"]([^'\"]+)['\"]", raw_error_msg, ignore.case = TRUE)
+        mm <- regmatches(raw_error_msg, m)[[1]]
+        if (length(mm) >= 2) func <- mm[2]
+        return(make_error(ERROR_CODES[[error_key]], func = func))
+      }
+      
+      # E001: 尝试提取缺失对象名（object 'xxx' not found）
+      if (error_key == "E001_COLUMN_NOT_FOUND") {
+        col <- "unknown"
+        m <- regexec("object ['\"]([^'\"]+)['\"] not found", raw_error_msg, ignore.case = TRUE)
+        mm <- regmatches(raw_error_msg, m)[[1]]
+        if (length(mm) >= 2) col <- mm[2]
+        return(make_error(ERROR_CODES[[error_key]], col = col))
+      }
+      
       return(make_error(ERROR_CODES[[error_key]], details = raw_error_msg))
     }
   }