You can look for an entity interactively at https://explore.openalex.org/. Or:
library(openalexR)
jj_hadley_au <- oa_fetch(
"authors",
display_name = "JJ Allaire|Hadley Wickham"
)
jj_hadley_au %>%
mutate(id = openalexR:::shorten_oaid(id)) %>%
select(id, display_name, works_count)
# A tibble: 4 × 3
id display_name works_count
<chr> <chr> <int>
1 A5016175339 Hadley Wickham 415
2 A5061795112 JJ Allaire 89
3 A5064454754 Hadley Wickham 2
4 A5086796000 Hadley Wickham 2