我也认为总结的语法应该是不同的(不是。funs而是funs)。
EXEC sp_execute_external_script
@language = N'R',
@script = N'
library(dplyr)
df <- InputDataSet %>%
group_by (StudyID, ProductNumber) %>%
summarise_all(funs(mean, sd)) %>%
setNames(c("StudyID","ProductNumber",
paste0("c",1:8, "_mean"),
paste0("c",1:8, "_sd")))
',
@input_data_1 = @inquery,
@output_data_1_name = N'df',
@params = N'@StudyID int',
@StudyID = @StudyID
WITH RESULT SETS(("StudyID" int, "ProductNumber" int, "c1_mean" int,
"c2_mean" int, "c3_mean" int,
"c4_mean" int, "c5_mean" int, "c6_mean" int, "c7_mean" int, "c8_mean" int,
"c1_sd" int, "c2_sd" int,
"c3_sd" int, "c4_sd" int, "c5_sd" int, "c6_sd" int, "c7_sd" int, "c8_sd" int
));