Merge branch 'main' into prepare-spatial-filter-revisions

NEWS.md

@@ -5,6 +5,7 @@
 - Add `pull_field_aliases()` utility function
 - `arc_select()` now uses `arcgisutils::rbind_results()` for faster row-binding if `{collapse}`, `{data.table}`, `{vctrs}` are installed (#175)
 - Improve handling of `filter_geom` by `arc_select()` by using `sf::st_concave_hull()` to process input geometry (in cases when applying `sf::st_union()` does not generate a single POLYGON) and warn if the input geometry is empty or longer than length 1. (@elipousson, #166)
+- Preserve order of `fields` column names for `arc_select()` (fixes minor bug with `arc_read` handling of `col_names`) (#185)
 
 # arcgislayers 0.2.0
 

R/arc-select.R

@@ -248,8 +248,8 @@ collect_layer <- function(
   # selected
   if (rlang::is_named(res) && has_out_fields) {
     out_fields <- c(out_fields, attr(res, "sf_column"))
-    res_nm <- names(res)
-    res <- res[, tolower(res_nm) %in% tolower(out_fields), drop = FALSE]
+    match_nm <- match(tolower(out_fields), tolower(names(res)))
+    res <- res[, match_nm[!is.na(match_nm)], drop = FALSE]
   }
 
   if (rlang::is_empty(res)) {