A very strange error in an edge case

[psychelzh]

Please briefly describe your problem and what output you expect. If you have a question, please don't use this form. Instead, ask on https://stackoverflow.com/ or https://community.rstudio.com/.

Please include a minimal reproducible example (AKA a reprex). If you've never heard of a reprex before, start by reading https://www.tidyverse.org/help/#reprex.

---

In the following example, the dplyr warning will result into an error:

suppressPackageStartupMessages(library(dplyr))
f <- function() {
  data.frame(id = 1:2) |> 
    summarise(n = warning("test"), .by = "id")
}
mtcars |> 
  reframe(f(), .by = "gear")
#> Error:
#> ! Failed to evaluate glue component {label}
#> Caused by error in `vapply()`:
#> ! values must be length 1,
#>  but FUN(X[[1]]) result is length 0

^{Created on 2024-04-02 with reprex v2.1.0}