Dividir un vector en intervalos separados por ceros

Problema

Tenemos el siguiente vector.

111 00 111 -1-1-1 000 11

Y deseamos dividirlo en intervalos separados por los ceros.

111 
111 -1-1-1 
11

Solución

x <- c("111 00 111 -1-1-1 000 11")
x <- gsub(" ", "", x , fixed = TRUE)
x <- unlist(strsplit(x, split="0+"))
x

[1] "111"       "111-1-1-1" "11"  

O bien.

split(x , 1:3)

$`1`
[1] "111"

$`2`
[1] "111-1-1-1"

$`3`
[1] "11"

Referencias

• stackoverflow