Как передать параметр TSQL в предложение фильтра dplyr?

Question

Я разрабатываю сложную параметризованную хранимую процедуру SQL Server.Он принимает параметр @StudyID в качестве ввода.Мне нужно передать значение этого параметра в предложение dplyr filter, чтобы возвращались только данные для выбранного StudyID.Моя хранимая процедура выглядит следующим образом:

ALTER PROCEDURE [dbo].[spCodeMeans]
-- Add the parameters for the stored procedure here
@StudyID int

AS
BEGIN


-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;



-- Insert statements for procedure here
Declare @sStudy varchar(50)
Set @sStudy = Convert(Varchar(50),@StudyID)
Declare @inquery nvarchar(max) = N'Select
        c.StudyID, c.RespID, c.ProductNumber, c.ProductSequence, c.BottomScaleValue, 
        c.BottomScaleAnchor, c.TopScaleValue, c.TopScaleAnchor, c.StudyDate,
        c.DayOfWeek, c.A, c.B, c.C, c.D, c.E, c.F,
        c.DependentVarYN, c.VariableAttributeID, c.VarAttributeName, c.[1] as c1, 
        c.[2] as c2, c.[3] as c3, c.[4] as c4, c.[5] as c5, c.[6] as c6, c.[7] as c7, c.[8] as c8
        from ClosedStudyResponses c
        --Sensory Value Attributes only for mean and standard deviation analytics.
        where VariableAttributeID = 1
        and c.StudyID =' +@sStudy ;

BEGIN TRY
        --Insert into CodeMeans
        exec sp_execute_external_script
        @language = N'R',
        @script = N'
        library(dplyr)
            OutputDataSet <- data.frame(InputDataSet) %>%
                group_by (StudyID, ProductNumber) %>%
                summarise_all(.funs=c(mean, sd)) %>%
                filter(StudyID == @StudyID) %>%
                setNames(c("StudyID","ProductNumber",
                paste0("c",1:8, "_mean"),
                paste0("c",1:8, "_sd")))
            ',
@params = N'@StudyID int',
@input_data_1 = @inquery,
@output_data_1 = N'OutputDataSet'
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
));

END TRY

BEGIN CATCH
    THROW;
END CATCH

Select * from CodeMeans;
END

Как мне убедиться, что параметр правильно передан в предложение фильтра?Если другой пакет R более оптимален для этого варианта использования, какой из них предлагается?

Answer 1

Недостаточно репутации, чтобы спросить в комментариях, что это за ошибка ... Я думаю, что нужно сделать две вещи:

1. Определить параметр в @params (как вы сделали) и затем передайте параметру @ перед
2. Удалите @ в функции фильтра в коде R

Я ожидаю, что сработает следующее:

exec sp_execute_external_script
        @language = N'R',
        @script = N'
        library(dplyr)
            OutputDataSet <- data.frame(InputDataSet) %>%
                group_by (StudyID, ProductNumber) %>%
                summarise_all(.funs=c(mean, sd)) %>%
                filter(StudyID == StudyID) %>%
                setNames(c("StudyID","ProductNumber",
                paste0("c",1:8, "_mean"),
                paste0("c",1:8, "_sd")))
            ',
@input_data_1 = @inquery,
@params = N'@StudyID int',
@StudyID = @sStudy,
@output_data_1 = N'OutputDataSet';