fixes #1886

Author: edzer

NEWS.md

@@ -1,5 +1,7 @@
 # version 1.0-13
 
+* `select.sf()` allows selecting the same column twice under different names; #1886
+
 * `st_as_sf.ppplist()` is deprecated; #1926
 
 * `st_cast()` handles empty geometries; #1961

R/tidyverse.R

@@ -162,7 +162,11 @@ select.sf <- function(.data, ...) {
 		stop("internal error: can't find sf column") # nocov
 
 	agr = st_agr(.data)
-	vars = names(.data)[setdiff(loc, sf_column_loc)]
+	#vars = names(.data)[setdiff(loc, sf_column_loc)] # see #1886, change into:
+	lloc = loc
+	if (sf_column_loc %in% loc)
+		lloc = lloc[loc != sf_column_loc]
+	vars = names(.data)[lloc]
 
 	sf_column_loc_loc = match(sf_column_loc, loc)
 	if (is.na(sf_column_loc_loc)) {