Discussion :

[MMDM12]

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 :

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

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 :

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

Erreur dans a:b : argument NA / NaN

Merci par avance pour votre aide.