Tengo este problema al momento de ejecutar la función me da como resultado el select que esto requiriendo en el @input_data_1
pero quisiera obtener en si el resultado de la siguiente imagen enter image description here
El código que estoy utilizando es diseñado en r pero lo estoy ejecutando en sql por EXEC sp_execute_external_script
este es el código
EXEC sp_execute_external_script @language =N'R',
@script=N'
library("dplyr");
data<-data.frame(data%>%
mutate(sf=data$DSBE_FL_SALDO_INICIAL-data$DSBE_FL_RETIROS+data$DSBE_FL_DEPOSITOS)%>%
mutate(cuentas=ifelse(data$DSBE_A1_CUENTA_CONTABLE==210305,1,0)+ifelse(data$DSBE_A1_CUENTA_CONTABLE==210310,1,0))%>%
mutate(bce=ifelse(data$DSBE_A2_ID_CLIENTE==1760002600001,0,1))
data<-data%>%
mutate(val=ifelse(data$cuentas*data$bce==1,1,0))%>%
filter(val==1)
datac<- data %>%
group_by(DSBE_A6_NOMBRE_CLIENTE) %>%
summarize(sum_sf=sum(sf))
datac<-datac%>%
mutate(tot=sum(sum_sf))%>%
mutate(w=sum_sf/tot)%>%
mutate(w_2=w^2)%>%
arrange(desc(sum_sf))
hhi<-sum(datac$w_2)
rq<-max(datac$tot)*0.5
(mensaje<-requerimeinto_liquidez<-ifelse(hhi>0.18,"50% mayores depositantes","Mayor valor entre Volatilidad ABS y 50% mayores dep"))
(requerimeinto_liquidez<-ifelse(hhi>0.18,rq,0)))
',
@input_data_1 =N'SELECT * from DEPOSITANTES_SBE_CARGA WHERE DSBE_DT_FECHA_PIVOT = ''2021-08-31''',@input_data_1_name = N'data',
--WITH RESULT SETS (([campo_1] varchar(60)))
@output_data_1_name = N'data';
GO