SQL Server中R脚本必须在单次sp_execute_external_script中完成模型加载、数据预处理和预测，因R运行时隔离且环境不跨调用共享；模型需以VARBINARY(MAX)存储并unserialize()加载，输入数据须通过@params传入并在R中严格对齐训练时的结构。
直接用 sp_execute_external_script 就能调用 R 脚本做预测，但必须把模型加载、数据预处理、预测三步全写进 @script 参数里，不能分段执行。
为什么不能直接在存储过程中 run R 函数
SQL Server 不允许你在 T-SQL 里像调用普通函数那样写 predict(model, newdata) —— R 运行时是隔离的，所有 R 逻辑必须打包进 @script 字符串，且只能通过 sp_execute_external_script 启动一次。常见错误是试图在存储过程中先 load() 模型变量，再另起一个 sp_execute_external_script 去预测，这会失败，因为两次调用之间 R 环境不共享变量。
- R 脚本生命周期只存在于单次
sp_execute_external_script执行中 - 模型必须以二进制形式（
VARBINARY(MAX)）存进数据库，并在每次预测时用unserialize()加载 - 输入数据只能通过
@input_data_1传入，不能在 R 脚本里用read.csv()或其他方式读外部文件
预测存储过程的关键结构
一个可复用的预测存储过程，核心是把模型反序列化、新数据准备、预测、结果格式化四件事塞进同一个 R 脚本块里。示例中 Predictive Model.sql 的典型写法如下：
CREATE PROCEDURE [dbo].[predict_rentals]
@RentalDate DATE,
@WeekDay INT,
@SnowDepth INT,
@Holiday BIT
AS
BEGIN
DECLARE @model VARBINARY(MAX) = (SELECT model FROM dbo.models WHERE name = 'rental_lm');
<pre class='brush:php;toolbar:false;'>EXEC sp_execute_external_script
@language = N'R',
@script = N'
library(RevoScaleR)
# 1. 反序列化模型
model <- unserialize(modelbin)
# 2. 构造新数据帧（列名、类型、顺序必须和训练时一致）
inputData <- data.frame(
RentalDate = as.Date(inputDate),
WeekDay = as.integer(weekDay),
SnowDepth = as.integer(snowDepth),
Holiday = as.logical(holiday)
)
# 3. 预测
pred <- rxPredict(model, inputData, writeModelVars = FALSE)
# 4. 输出为数据帧，列名要匹配 WITH RESULT SETS
OutputDataSet <- data.frame(Prediction = as.integer(pred$Prediction))
',
@input_data_1 = N'SELECT 1 AS dummy', -- 占位，实际数据走参数
@params = N'@modelbin varbinary(max), @inputDate varchar(10), @weekDay int, @snowDepth int, @holiday bit',
@modelbin = @model,
@inputDate = @RentalDate,
@weekDay = @WeekDay,
@snowDepth = @SnowDepth,
@holiday = @Holiday
WITH RESULT SETS (([Prediction] INT));END
-
@params必须显式声明所有标量参数，R 脚本内才能引用 -
rxPredict()是 RevoScaleR 推荐函数，比 base R 的predict()更兼容 SQL Server 的并行与大数据上下文 - 输入数据构造必须严格对齐训练时的列名、类型、因子水平（比如
WeekDay若训练时是 factor，预测时也得转成相同 level 顺序）
容易踩的坑：模型保存与加载不一致
最常导致预测结果为 NA 或报错 "object not found" 的原因，是模型保存和加载方式不匹配。比如：
- 用
saveRDS(model, file = "m.rds")保存 → 必须用readRDS("m.rds")加载，但 SQL Server 里不能访问本地文件系统 - 正确做法是用
serialize(model, NULL)得到 raw vector，再转成VARBINARY(MAX)存库；加载时用unserialize(modelbin) - 如果模型依赖自定义函数（如特征工程函数），这些函数代码也得一并写进
@script，不能指望 R 运行时已加载 - 注意
RevoScaleR模型对象（如rxLinMod）可以直接序列化，但 base R 的lm对象在某些版本里会丢失 formula 环境，建议统一用 RevoScaleR 训练
真正麻烦的不是调用语法，而是让 R 脚本在 SQL Server 的受限环境里“完整跑通”——模型、数据、依赖函数、类型转换，全部得在一个字符串里闭环。漏掉任何一环，sp_execute_external_script 就只会返回空结果或 cryptic 错误。
