split string with regex

Question

Sto cercando di dividere una stringa di un modulo generico, in cui le parentesi quadre indicano le "sezioni" della stringa. Es:

x <- "[a] + [bc] + 1" 

e restituire un vettore di carattere che assomiglia:

"[a]" " + " "[bc]" " + 1" 

EDIT: finito per usare questo:

x <- "[a] + [bc] + 1" 
x <- gsub("\\[",",[",x) 
x <- gsub("\\]","],",x) 
strsplit(x,",") 

Answer 1

Ho visto il codice di TylerRinker e il sospetto che potrebbe essere più chiaro di così, ma questo può servire come modo per imparare un diverso insieme di funzioni. (Mi è piaciuto il suo meglio prima ho notato che si divide su spazi.) Ho provato ad adattarlo per funzionare con strsplit ma quella funzione rimuove sempre i separatori. Forse questo potrebbe essere adattato per fare un newstrsplit che si divide ai separatori ma li lascia in? Probabilmente non è necessario dividere la prima o l'ultima posizione e distinguere tra separatori di apertura e chiusura.

scan(text= # use scan to separate after insertion of commas 
      gsub("\\]", "],", # put commas in after "]"'s 
      gsub(".\\[", ",[", x)) , # add commas before "[" unless at first position 
     what="", sep=",") # tell scan this character argument and separators are "," 
#Read 4 items 
#[1] "[a]" " +" "[bc]" " + 1" 

Answer 2

Questo è un approccio pigro:

FUN <- function(x) { 
    all <- unlist(strsplit(x, "\\s+")) 
    last <- paste(c(" ", tail(all, 2)), collapse="") 
    c(head(all, -2), last) 
} 

x <- "[a] + [bc] + 1"  
FUN(x) 

## > FUN(x) 
## [1] "[a]" "+" "[bc]" " +1" 

Answer 3

È possibile calcolare il manuall dei punti di split y e utilizzare substring:

split.pos <- gregexpr('\\[.*?]',x)[[1]] 
split.length <- attr(split.pos, "match.length") 
split.start <- sort(c(split.pos, split.pos+split.length)) 
split.end <- c(split.start[-1]-1, nchar(x)) 
substring(x,split.start,split.end) 
# [1] "[a]" " + " "[bc]" " + 1" 

Answer 4

Ed ecco una versione che si divide sulle staffe e li mantiene nel risultato, utilizzando lookahead positivo e lookbehind:

splitme <- function(x) { 
    x <- unlist(strsplit(x, "(?=\\[)", perl=TRUE)) 
    x <- unlist(strsplit(x, "(?<=\\])", perl=TRUE)) 
    for (i in which(x=="[")) { 
    x[i+1] <- paste(x[i], x[i+1], sep="") 
    } 
    x[-which(x=="[")] 
} 
splitme(x) 
#[1] "[a]" " + " "[bc]" " + 1"