Annual Report 2024

library(spiderorchid)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

Total output for 2024

# Grab output from ORCID where possible
orcid <- staff_ids |>
  pull(orcid_id) |>
  na.omit() |>
  fetch_orcid() |>
  filter(year == 2024)
# Otherwise grab output from Scholar
scholar <- staff_ids |>
  filter(is.na(orcid_id)) |>
  pull(scholar_id) |>
  na.omit() |>
  fetch_scholar() |>
  filter(year == 2024)