Merge pull request #187 from elipousson/arc_select-field-order-fix

Fix #185

Author: JosiahParry

NEWS.md

@@ -4,6 +4,7 @@
 - Add `alias` argument to `arc_read()` allowing replacement or labelling of field names with alias values (#169)
 - 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)
+- 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)) {