Bonjour,

je cherche à transformer mon bout de code en Pipeline.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#ce que je fais 
 
crm1 <- subset( crm , crm$Brand_Id == 1  & crm$date_id > '2019-01-01')
 
crm1 <- sqldf( ' select sum(ouverture) / sum(envoi) as tx_ouverture, 
                 sum(click) / sum(envoi)  as tx_clic ,
                 sum(click) / sum(ouverture) as tx_reac,
                sum(desinscription)  / sum(ouverture)  as tx_desin , deliveryType_id , brand_id
       from crm1 
       group by deliveryType_id , brand_id' )
 
# j'aimerai avoir un code du style 
 
crm 
%>% filter( brand_id == 1  &  date_id > '2019-01-01' )
%>% sqldf( ' select sum(ouverture) / sum(envoi) as tx_ouverture, 
                 sum(click) / sum(envoi)  as tx_clic ,
                 sum(click) / sum(ouverture) as tx_reac,
                sum(desinscription)  / sum(ouverture)  as tx_desin , deliveryType_id , brand_id
       from crm 
       group by deliveryType_id , brand_id' )
ma table a cette tête :

Brand_Id date_id Envoi Ouverture Click Page_miroir desinscription
1 2018-12-14 1 1 0 0 0
1 2018-12-28 1 1 0 0 0
1 2018-12-16 1 0 0 0 1
1 2018-12-10 1 1 0 0 0
1 2018-12-08 1 1 0 0 0
1 2018-12-20 1 1 0 0 0

Merci d'avance.