if NULL crs return NA

DESCRIPTION

@@ -12,7 +12,7 @@ BugReports: https://github.com/R-ArcGIS/arcpbf/issues
 Encoding: UTF-8
 Language: en
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Config/rextendr/version: 0.3.1.9000
 SystemRequirements: Cargo (Rust's package manager), rustc >= 1.70
 Suggests: 

NAMESPACE

@@ -6,4 +6,5 @@ export(process_pbf)
 export(read_pbf)
 export(resp_body_pbf)
 export(resps_data_pbf)
+importFrom(rlang,"%||%")
 useDynLib(arcpbf, .registration = TRUE)

NEWS.md

@@ -1,5 +1,6 @@
 # arcpbf (development version)
 
+* Handles missing CRS and closes <https://github.com/R-ArcGIS/arcpbf/issues/11> h/t @elipousson for reporting
 * Returns warning message when `esriFieldBlob` is encountered <https://github.com/R-ArcGIS/arcpbf/issues/6>
 * Fixes bug where an error occured when a query returned no rows <https://github.com/R-ArcGIS/arcpbf/issues/8>
 

R/post-process.R

@@ -96,8 +96,9 @@ post_process_list <- function(x, use_sf) {
 
 # helper function to determine which component of the spatialReference needs
 # to be passed to sf::st_crs() to create the spatial reference object
+#' @importFrom rlang %||%
 crs <- function(sr) {
   possible_crs <- sr[c("latest_wkid", "wkid", "wkt")]
   valid_crs_idx <- which(!is.na(possible_crs))[1]
-  possible_crs[[valid_crs_idx]]
+  possible_crs[[valid_crs_idx]] %||% NA
 }