v <- terra::vect(system.file("extdata/cyl.gpkg", package = "tidyterra"))
v$grp <- rep(c("A", "B"), length.out = nrow(v))
group_map(group_by(v, grp), ~ nrow(.x))
group_modify(group_by(v, grp), ~ mutate(.x, key = .y$grp))
Run the code above in your browser using DataLab