fixes #2325

edzer · edzer · commit 6cac2e249f7f · 2024-01-30T21:53:33.000+01:00
diff --git a/R/sf.R b/R/sf.R
@@ -381,7 +381,7 @@ st_sf = function(..., agr = NA_agr_, row.names,
 
 #' @export
 "[<-.sf" = function(x, i, j, value) {
-	st_set_agr(NextMethod())
+	st_as_sf(st_set_agr(NextMethod()))
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -381,7 +381,7 @@ st_sf = function(..., agr = NA_agr_, row.names,`
`381`	`381`
`382`	`382`	`#' @export`
`383`	`383`	`"[<-.sf" = function(x, i, j, value) {`
`384`		`- st_set_agr(NextMethod())`
	`384`	`+ st_as_sf(st_set_agr(NextMethod()))`
`385`	`385`	`}`
`386`	`386`
`387`	`387`	`#' @export`