fix tidytransit st_agr() problem

#2275 r-transit/tidytransit#209
r-spatial · Nov 28, 2023 · 6e7e571 · 6e7e571
1 parent fe87116
commit 6e7e571
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/agr.R b/R/agr.R
@@ -37,8 +37,9 @@ st_agr.factor = function(x, ...) {
 }
 
 #' @export
-st_agr.default = function(x = NA_character_, ...) { 
-	stopifnot(all(is.na(x)))
+st_agr.default = function(x = NA_character_, ...) {
+	if (is.data.frame(x) && !is.null(attr(x, "agr")))
+		x = attr(x, "agr")
 	structure(st_agr(as.character(x)), names = names(x))
 }