Bonjour,

Le code suivant fonctionne sans erreur signalée, mais, si la jointure se fait bien , ce n'est pas le cas du filtre (fonction filter()).
(si je fais un copier-coller de la partie concernant le filtre à l'extérieur de la fonction, cela fonctionne correctement)

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
23
 
library(dplyr)
passage.Nomenc<- function(table, ape2) {  
  table_passage<-read.csv('V:/table_de_passage.csv',colClasses = "character",sep=';') 
  ape <- enquo(ape2) 
 
  table <- left_join(table,table_passage,by= setNames("ape",ape2)) %>% 
 
    # ici, la résolution des conflits, lorsque plusieurs ndom3 pour une même APE  
 
  filter(   (!!ape  != '1101Z' | ndom3 == 'NC2002000')
          & (substr(!!ape ,1,2)  != '24' | ndom3 == 'ND2006001')
          & (substr(!!ape ,1,2)  != '29' | ndom3 == 'ND2010001')
          & (substr(!!ape ,1,2)  != '46' | ndom3 == 'NG1002000')
          & (substr(!!ape ,1,2)  != '64' | ndom3 == 'NK1001001')
          & (!!ape  != '6820B' | ndom3 == 'NL1002003')
          & (substr( !!ape ,1,2)  != '85' | ndom3 == 'NP2001001')
          & (substr(!!ape ,1,2)  != '86' | ndom3 == 'NP2002001')
          & (substr(!!ape ,1,2)  != '95' | ndom3 == 'NR1002002')
  ) 
    return(table)    
}
t2<-passage.Nomenc(table=t, ape="APE_sirene")
Si qqn comprend où est l'os et peut me dépanner ?
Merci