Mam wektor, który jest pod spodem

a<- c(1,1,1,2,3,2,2,2,2,1,0,0,0,0,2,3,4,4,1,1)

Tutaj widzimy, że istnieje wiele duplikatów elementów, tj. są powtarzane. Chcę kod, który może zastąpić wszystkie elementy, które są kolejne i powielane przez 0, z wyjątkiem pierwszego elementu. Rezultat, którego potrzebuję, jest

a<- c(1,0,0,2,3,2,0,0,0,1,0,0,0,0,2,3,4,0,1,0)

próbowałem

unique(a)
       #which gives
[1] 1 2 3 0 4