如何拆分由两个未连接的段组成的SpatialLine？
以下代码创建了一个示例：
l1 = cbind(c(1,2),c(3,2))
rownames(l1) = letters[1:2]
l2 = cbind(c(3,4),c(1,4))
rownames(l1) = letters[3:4]
Sl1 = Line(l1)
Sl2 = Line(l2)
Ll1 = Lines(list(Sl1), ID="a")
Ll2 = Lines(list(Sl2), ID="b")
Sl = SpatialLines(list(Ll1,Ll2))
m<-gLineMerge(Sl)
实际上gLineMerge()的反向功能应该起作用。