[R-sig-Geo] split/divide SpatialLines (sp) into n segments

[Omphalodes Verna]

Dear list!

I would like to split/divide SpatialLines into n segments. Is there any function to do this in R? Or does somebody know the solution for that?

Here is example of SpatialLines from the sp vignette:

library(sp)
Sl = SpatialLines(list(Lines(list(Line(cbind(c(1,2,3),c(3,2,2)))), ID="a")))
plot(Sl)
coordinates(Sl)

Thanks to all, OV