Slide function goes wrong when there are more than two group vars

[zhugelijuan123]

tmp_store_test before tmp_store_test store_code sale_date day_of_week_ori payment_amount is_vacation 32 100000022 2019-10-14 1 10769.87 0 39 100000022 2019-10-21 1 10327.14 0 46 100000022 2019-10-28 1 9834.03 0 53 100000022 2019-11-04 1 8654.33 0 60 100000022 2019-11-11 1 10855.01 0 69 100000022 2019-07-22 1 12737.00 1 76 100000022 2019-07-29 1 13652.91 1 83 100000022 2019-08-05 1 11824.64 1 90 100000022 2019-08-12 1 12026.49 1 97 100000022 2019-08-19 1 12490.36 1 104 100000022 2019-08-26 1 12776.02 1

tmp_store_test <- tmp_store_test[with(tmp_store_test,order(store_code,is_vacation,day_of_week_ori)),] tmp_store_test <- slide(tmp_store_test, Var="payment_amount", TimeVar="sale_date", GroupVar=c("store_code",'is_vacation','day_of_week_ori'), NewVar="Data_lagged_7_pay",slideBy = -1, keepInvalid = FALSE, reminder = FALSE)

tmp_store_test after tmp_store_test store_code sale_date day_of_week_ori payment_amount is_vacation Data_lagged_7_pay 1 100000022 2019-10-14 1 10769.87 0 NA 2 100000022 2019-10-21 1 10327.14 0 10769.87 3 100000022 2019-10-28 1 9834.03 0 10327.14 4 100000022 2019-11-04 1 8654.33 0 9834.03 5 100000022 2019-11-11 1 10855.01 0 8654.33 6 100000022 2019-07-22 1 12737.00 1 10855.01 7 100000022 2019-07-29 1 13652.91 1 12737.00 8 100000022 2019-08-05 1 11824.64 1 13652.91 9 100000022 2019-08-12 1 12026.49 1 11824.64 10 100000022 2019-08-19 1 12490.36 1 12026.49 11 100000022 2019-08-26 1 12776.02 1 12490.36

The result is not true ,since is_vacation is in the GroupVar of slide function, the first value of is_vacation=1 should be NA. But the result use the last value of is_vacation=0. 6 100000022 2019-07-22 1 12737.00 1 10855.01(should be NA)

This problem is confusing. If the GroupVar only have (store_code,day_of_week_ori),this fuction is valid only for dataframe with one store. If the store number>1, the same thing goes wrong!

Thanks a lot.