keep row.names but make them unique, in case first object has them.

edzer · edzer · commit 1e1e9f0d1127 · 2016-02-05T08:47:29.000+01:00
diff --git a/R/rbind.R b/R/rbind.R
@@ -12,13 +12,17 @@ rbind.SpatialPoints <- function(...) {
 	dots = list(...)
 	names(dots) <- NULL
 	stopifnot(identicalCRS(dots))
+	dropRowNames = is.null(dimnames(dots[[1]]@coords)[[1]]) # or check each of them?
 	coordinates.strip = function(x) {
 		x = coordinates(x)
 		row.names(x) = NULL
 		x
 	}
-	SpatialPoints(do.call(rbind, lapply(dots, coordinates.strip)),
+	ret = SpatialPoints(do.call(rbind, lapply(dots, coordinates.strip)),
 		CRS(proj4string(dots[[1]])))
+	if (!dropRowNames)
+		row.names(ret) = make.unique(do.call(c, lapply(dots, row.names)))
+	ret
 }
 
 rbind.SpatialPointsDataFrame <- function(...) {

Original file line number	Diff line number	Diff line change
`@@ -12,13 +12,17 @@ rbind.SpatialPoints <- function(...) {`
`12`	`12`	`dots = list(...)`
`13`	`13`	`names(dots) <- NULL`
`14`	`14`	`stopifnot(identicalCRS(dots))`
	`15`	`+ dropRowNames = is.null(dimnames(dots[[1]]@coords)[[1]]) # or check each of them?`
`15`	`16`	`coordinates.strip = function(x) {`
`16`	`17`	`x = coordinates(x)`
`17`	`18`	`row.names(x) = NULL`
`18`	`19`	`x`
`19`	`20`	`}`
`20`		`- SpatialPoints(do.call(rbind, lapply(dots, coordinates.strip)),`
	`21`	`+ ret = SpatialPoints(do.call(rbind, lapply(dots, coordinates.strip)),`
`21`	`22`	`CRS(proj4string(dots[[1]])))`
	`23`	`+ if (!dropRowNames)`
	`24`	`+ row.names(ret) = make.unique(do.call(c, lapply(dots, row.names)))`
	`25`	`+ ret`
`22`	`26`	`}`
`23`	`27`
`24`	`28`	`rbind.SpatialPointsDataFrame <- function(...) {`