如何在R中拆分空间线？

如何分割由两个未连接的线段组成的空间线

下面的代码创建了一个示例：

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)

l1=cbind（c（1,2），c（3,2））
行名（l1）=字母[1:2]
l2=cbind（c（3,4），c（1,4））
行名（l1）=字母[3:4]
Sl1=直线（l1）
Sl2=直线（l2）
Ll1=行（列表（Sl1），ID=“a”）
Ll2=行（列表（Sl2），ID=“b”）
Sl=空间线（列表（Ll1、Ll2））
mYou可以使用命令unlist使拆分的
行
对象(m@lines[[1]]

好吧，我收到的将

行

转换为

空间线

的信息同样只在功能上。