split string with regex

Question

Czekam na podział ciągu ogólnej formy, gdzie nawiasy kwadratowe oznaczają "sekcje" ciągu. Ex:

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

i powrócić do postaci wektorowej, który wygląda tak:

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

EDIT: Skończyło się przy użyciu to:

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

Answer 1

Widziałem kod TylerRinker i podejrzewam może być bardziej jasne niż to, ale to może służyć jako sposób na naukę inny zestaw funkcji. (Podobał mi się jego lepszy, zanim zauważyłem, że dzieli się on na spacje). Próbowałem dostosować to do pracy z strsplit, ale ta funkcja zawsze usuwa separatory. Może to można zaadaptować, aby uzyskać newstrsplit, który dzieli się na separatory, ale pozostawia je? Prawdopodobnie nie trzeba dzielić na pierwszej lub ostatniej pozycji i rozróżniać separatory otwierające i zamykające.

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

Jest to jeden leniwe podejście:

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

Możesz obliczyć punkty podziału punktów y i korzystać 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

A oto wersja, która dzieli się na wspornikach i utrzymuje je w wyniku stosując dodatni uprzedzona i 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"