Fast rows combine in {sf}

fastrbindsf.R

## This function is faster alternative to `rbind()` in the {sf} package.
## Basically, it uses `collapse::unlist2d()` to combine rows.
## See also: https://github.com/r-spatial/sf/issues/798

fastrbindsf = function(x, check = FALSE) {
  if (length(x) == 0) stop("Empty list")
  if (isTRUE(check)) {
    ref_crs = sf::st_crs(x[[1]])
    ref_colnames = colnames(x[[1]])
    for (i in seq_len(length(x))) {
      if (isFALSE(sf::st_crs(x[[i]]) == ref_crs)) stop("Diffrent CRS")
      if (isFALSE(all(colnames(x[[i]]) == ref_colnames))) stop("Diffrent columns")
    }
  }
  geom_name = attr(x[[1]], "sf_column")
  x = collapse::unlist2d(x, idcols = FALSE, recursive = FALSE)
  x[[geom_name]] = sf::st_sfc(x[[geom_name]], recompute_bbox = TRUE)
  x = sf::st_as_sf(x)
}