From 6e7e5710ef3fa64b8f64681f116b59d20fc82119 Mon Sep 17 00:00:00 2001 From: edzer Date: Tue, 28 Nov 2023 14:44:33 +0100 Subject: [PATCH] fix tidytransit st_agr() problem https://github.com/r-spatial/sf/issues/2275 https://github.com/r-transit/tidytransit/issues/209 --- R/agr.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/agr.R b/R/agr.R index 108f3cc73..fa4f12be8 100644 --- 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)) }