Give more informative error when API key set

Error message from API is now passed to user
when they request a API key for an email that
has already been assigned a key.

R/finbif_request_token.R

@@ -55,7 +55,7 @@ finbif_request_token <- function(email, quiet = FALSE) {
       pause_cap = getOption("finbif_retry_pause_cap"),
       pause_min = getOption("finbif_retry_pause_min"),
       quiet = quiet,
-      terminate_on = 404L
+      terminate_on = c(404L, 422L)
     )
 
     parsed <- httr::content(resp)
@@ -64,8 +64,8 @@ finbif_request_token <- function(email, quiet = FALSE) {
 
       msg <- sprintf(
         "API request failed [%s]\n%s",
-        resp[["status_code"]],
-        parsed[["message"]]
+        parsed[[c("error", "statusCode")]],
+        parsed[[c("error", "message")]]
       )
 
       stop(msg, call. = FALSE)