Issue Makers

gistfile1.txt

``` r
library(tidyverse)

ishies <- c(
  gh::gh("/repos/NewGraphEnvironment/onboarding/issues", .limit = 100, state = "open"),
  gh::gh("/repos/NewGraphEnvironment/onboarding/issues", .limit = 100, state = "closed")
) |> 
  # but these have pull requests as well. We want what we call "issues" only so we filter
  purrr::discard(~"pull_request" %in% names(.x))

# we want to see who makes the issues
ishie_makers <- ishies |> 
  purrr::map(purrr::pluck("user")) |> 
  purrr::map(purrr::pluck("login")) %>%
  tibble::tibble(user = .) |> 
  group_by(user) |> 
  summarise(n = n())

knitr::kable(ishie_makers)
```

| user                |   n |
|:--------------------|----:|
| NewGraphEnvironment |  50 |
| newgraph-lschick    |  16 |
| Mateo9569           |   6 |

<sup>Created on 2024-04-26 with [reprex v2.1.0](https://reprex.tidyverse.org)</sup>