Bonjour,

J'utilise dans un code la fonction grep de cette facon :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
ListDate=append(ListDate,DateSuivante +"|")}
mais ca ne fonctionne pas

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

Merci