fixes #2557

Author: edzer

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: sf
-Version: 1.0-23
+Version: 1.0-24
 Title: Simple Features for R
 Authors@R:
     c(person(given = "Edzer",

NEWS.md

@@ -1,3 +1,7 @@
+# version 1.0-24
+
+* fix class label setting in `[.sf()`; #2557
+
 # version 1.0-23
 
 * allow tests reading blosc compressed Zarr files to fail

R/sf.R

@@ -378,8 +378,12 @@ st_sf = function(..., agr = NA_agr_, row.names,
 		x[[ sf_column ]] = geom
 		x = st_sf(x, sf_column_name = sf_column, sfc_last = FALSE)
 		st_set_agr(x, agr[match(setdiff(names(x), sf_column), names(agr))])
-	} else
-		structure(x, class = setdiff(class(x), "sf"))
+	} else { 
+		if (inherits(x, "sf"))
+			structure(x, class = setdiff(class(x), "sf"))
+		else
+			x
+	}
 }
 
 #' @export