Support multiple country codes

[dpprdan]

opencagedata supports [multiple country codes(https://geocoder.opencagedata.com/api#forward-opt), but opencage 📦 does not (yet).

# French territories according to the opencage website
french_territories <- 
  c("fr", "bl", "gf", "gp", "mf", "mq", "nc", "pf", "pm", "re", "tf", "wf", "yt") %>% 
  toupper()

opencage_forward("Arc de Triomphe de l’Etoile, Paris", countrycode = french_territories)
#> Warning in if (!(countrycode %in% countrycodes$Code)) {: the condition has
#> length > 1 and only the first element will be used
#> Error in vapply(elements, encode, character(1)): values must be length 1,
#>  but FUN(X[[2]]) result is length 13

[maelle]

I think it now works. For the record the example above doesn't return any result, unless one removes "de l'Etoile".

[dpprdan]

👍 Could you please add a keyword or two to your commit messages, otherwise one always has to go to Github (from e.g. RStudio) to see what the issue was about?

[maelle]

will do!

[maelle]

(I mean in the future, for now I won't rename the old ones)

[dpprdan]

Thanks!
Re future: of course. Wait, that's possible? (Without rewriting history and getting everybody mad at you?) I mean, in principle, not that you ought to do it.

[maelle]

I have no idea, I just imagine it is? Or maybe not? 🤔 (I won't try to mess up with this repo but might look into it one day!)