Discussion :

[BPython]

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

[faubry]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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