keep crs in dplyr::filter

address #2059 (comment)
r-spatial · Aug 30, 2023 · 4ecabf0 · 4ecabf0
1 parent 1bcce69
commit 4ecabf0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/tidyverse.R b/R/tidyverse.R
@@ -56,7 +56,8 @@ filter.sf <- function(.data, ..., .dots) {
 	class(.data) <- setdiff(class(.data), "sf")
 	if (inherits(g, "sfc_POINT") && !is.null(pts <- attr(g, "points"))) {
 		.data[[ attr(.data, "sf_column") ]] = pts
-		st_as_sf(NextMethod(), coords = attr(.data, "sf_column"), agr = agr, remove = FALSE) # FIXME: doesn't handle tibble?
+		st_as_sf(NextMethod(), coords = attr(.data, "sf_column"), agr = agr, remove = FALSE,
+			crs = st_crs(g)) # FIXME: doesn't handle tibble?
 	} else
 		.re_sf(NextMethod(), sf_column_name = attr(.data, "sf_column"), agr)
 }