Désolé pour ce titre un peu long mais il résume bien mon problème. Voilà une version simplifiée de mon script :
Code : Tout sélectionner
genes <- c("DX","TR","VU","ZT","SR","TU","CO")
geneskept <- c()
for (i in 1:length(genes)) {
a = genes[i]
cat("\nkeep gene",a,"?")
choix=c("yes","no")
answer <- menu(choix)
if(answer == 1){cat("gene",a,"will be kept\n");geneskept <- c(geneskept,a)}
if(answer == 2){cat("gene",a,"won't be kept\n")}
}
cat("\ngene(s)",setdiff(genes,geneskept),"won't be kept\n")
Si je ne lance pas le script complet (i.e si j’omets la dernière ligne), je peux bien choisir de conserver ou non les différents éléments du vecteur "genes". Seulement, si je lance le script complet, voici les première lignes de ma console...
Code : Tout sélectionner
Selection:
Entrer un des items du menu, ou 0 pour sortir
Selection:
Entrer un des items du menu, ou 0 pour sortir
Selection: cat("\ngene(s)",setdiff(genes,geneskept),"won't be kept\n")
Entrer un des items du menu, ou 0 pour sortir
Selection:
Je peux ensuite choisir de conserver ou non les différents éléments du vecteur "genes" mais le script s'arrête là. Si jamais je rajoute des lignes elles sont lues de la même manière et passent à la trappe.
Une idée ? :)