check if x and y columns are present in addition to lat long

huizezhang-sherry · Jan 17, 2024 · b7aabc0 · b7aabc0
1 parent d2e4b60
commit b7aabc0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sf.R b/R/sf.R
@@ -14,7 +14,7 @@ make_spatial_sf <-  function(x, sfc = NULL, crs, silent = FALSE) {
 	stopifnot(is_cubble_spatial(x),
 			  is.null(sfc) || inherits(sfc, "sfc"),
 			  missing(crs) || inherits(crs, "crs"),
-			  all(c("long", "lat") %in% names(x)))
+			  all(c("long", "lat") %in% names(x)) || all(c("x", "y") %in% names(x)))
 	if (! requireNamespace("sf", quietly = TRUE))
 		stop("package sf required, please install it first")
 	if (is.null(sfc)) {