la función split es lo que necesitas. Le tienes que dar un factor para que sepa como agrupar, por ejemplo:

    split(c(1,2,3,4),c(1,2,2,1))

regresa una lista con 1 y 4 en la primera entrada y luego 2 y 3.

Para tu problema la función cumsum nos ayuda a crear el factor que se necesita `cumsum(x=="a")`

<b\>

    split(as.numeric(x[x!="a"]),cumsum(x=="a")[x!="a"])