Problème de boucle

Bonjour,
Pour être bref, mon objectif est de découper un texte par rapport à des numéros de lignes que j'ai dans un vecteur "vnum" (voir code).

**fSRT est un vecteur de caractères dont chaque élément est une ligne de mon texte
**vnum est un vecteur numérique

Je veux que SEG[[q]] contienne le texte entre a et b où :
a <- vnum[i]+1
b <- vnum[(i+1)]-1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

segmenter <- function (fSRT){ vnum <- str_detect(fSRT,"^[1-9]+") vnum <- c(which(vnum>0)) SEG <- list() q <- 1 for (i in vnum){ a <- vnum[i]+1 b <- vnum[i+1]-1 SEG[[q]] <- cbind(fSRT[a:b]) q <- q+1 } return(SEG) }

---

Mon problème est que le composant ne contient rien et j'ai cette erreur

Code:

---

Erreur dans a:b : argument NA / NaN

---

Merci par avance pour votre aide.

J'arrive à modifier un peu, mais il y a toujours des problèmes sur les indices :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

segmenter <- function (fSRT){ vnum <- str_detect(fSRT,"^[0-9]+$") vnum <- which(vnum>0) SEG <- list() q <- 1 # numéro de segment courant a <- 1 b <- 2 for (i in 1:length(vnum)){ debut <- vnum[a]+1 fin <- vnum[b]-1 SEG[[q]] <- fSRT[debut:fin] q <- q+1 a <- a+1 b <- b+1 } return(SEG) }

---

Voila, ce que je trouve comme erreur :

Code:

---

Erreur dans debut:fin : argument NA / NaN

---

Si quelqu'un a une idée sur l'erreur, merci de son aide.
Enfin, une dernière question, est-ce que la façon dont j'ai declaré l'argument de la fonction est correcte, sachant que fSRT est un vecteur de caractères?

Finalement j'y suis parvenu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

segmenter <- function (fSRT){ vnum <- str_detect(fSRT,"^[0-9]+$") vnum <- c(which(vnum>0),length(fSRT)+1)#,length(fSRT)+1) SEG <- list() q <- 1 # numero de segment courant a <- 1 b <- 2 for (i in 1:(length(vnum)-1)){ # les lignes de coupures debut <- vnum[a]+1 fin <- vnum[b]-1 SEG[[q]] <- fSRT[debut:fin] q <- q+1 a <- a+1 b <- b+1 } return(SEG) }

---

Merci