utilisation fonction grep

Bonjour,

J'utilise dans un code la fonction grep de cette facon :

Code:

---

Cas1<-Selection[grep(ListDate,Selection[,"DateNum"]),]

---

Ce qui me permet d'aller chercher dans un fichier appelé "Selection" les lignes pour lesquelles "DateNum" du fichier "Selection" sont égales aux valeurs contenues dans LisDate

Dans un premier temps j'ai défini ListDate en dur de la façon suivante:

Code:

---

ListDate<-"16679|16686|16693"

---

De cette façon la commande précédente fonctionne très bien.Un fichier Cas1 se crée avec les bonnes lignes issues du fichier Selection

Je veux maintenant complexifier la chose : ListDate n'est plus défini en dur mais est le résultat d'une sous fonction.J'écris donc

Code:

---

1 2	ListDate<-CalculDateSemaine(semaine) Cas1<-Selection[grep(ListDate,Selection[,"DateNum"]),]

---

Simplement cela ne fonctionne pas car je n'ai pas les caractères "|" dans la liste retournée par la sous fonction. La sous-fonction est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

CalculDateSemaine<-function(intervalle_){ DateDebutNum<-16679 ListDate <-DateDebutNum   for (i in 1:2) { DateSuivante<-DateDebut+intervalle_*i ListDate=append(ListDate,DateSuivante)}   print (ListDate) return (ListDate)}

---

J'ai tenté d'ajouter les symboles avant DateSuivante ainsi

Code:

---

ListDate=append(ListDate,DateSuivante +"|")}

---

mais ca ne fonctionne pas

Quelqu'un a-t-il une idée pour résoudre ce problème?

Merci

append crée un vecteur. Il faut concaténer les éléments en introduisant | entre chaque. Cela se fait par la fonction paste0 :

Code:

---

return( paste0( listDate, collapse="|"))

---