Add submitted key to name_usage output

[Wolfudus]

Hello,

I would much appreciate adding a column with the submitted key to name_usage to the functions output. Much like verbatim_name to name_backbone.
This would be especially useful when quering and matching back synonyms for subspecies level usageKeys, as speciesKey is not a sufficient match.

If someone has a suggestion on how to circumvent the problem, i would appreciate the help.

Thank you,

[jhnwllr]

Thanks @Wolfudus !

I will add this to the next version.

Here is a work around that might work for you.

library(purrr) 
library(dplyr)
library(rgbif)

c(1,2,3) |>
map(~
name_usage(.x)$data |> 
mutate(verbatim_key=.x)
)

[Wolfudus]

Thanks that workaround worked nicely!