Clip beginning and end of lines in R

[المشرف العام]

I have a series of lines which I need to 'top and tail' to remove the first and last x meters as roughly illustrated below with buffers of 200 m.



Reproducible example illustrating how to clip the lines:

library(geojsonio) library(rgeos) gurl