如何在R中有效地计算多个多边形（多多边形）之间的最小距离

我有一个多边形列表，希望通过计算每个可能的多边形对之间的最小距离来创建最小距离矩阵。我目前正在使用下面的代码，但运行速度非常慢。有没有办法优化这一点

list #dataframe with all my multipolygons
distance<-as.data.frame(matrix(ncol=nrow(list),nrow=nrow(list)))#create an empty dataframe which I can then fill with distances.

for (i in 1:nrow(list)){
  for (j in i+1:nrow(list)){ 

      distance[j,i] <- st_distance(x = list[i,], y= list[j,], by_element = TRUE)

  }
}

list#数据帧与我的所有多端口
距离交叉过帐为