From 19846a15fad914514dc2ef872746985c83fff362 Mon Sep 17 00:00:00 2001
From: wkmor1 <willi@mmorris.email>
Date: Mon, 11 Mar 2024 15:50:08 +0200
Subject: [PATCH] Refactor to avoid test failing early

---
 R/finbif_request_token.R | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/R/finbif_request_token.R b/R/finbif_request_token.R
index 62fb749d..b0dea104 100644
--- a/R/finbif_request_token.R
+++ b/R/finbif_request_token.R
@@ -62,10 +62,10 @@ finbif_request_token <- function(email, quiet = FALSE) {
 
     if (!identical(resp[["status_code"]], 200L)) {
 
+      error <- parsed[["error"]]
+
       msg <- sprintf(
-        "API request failed [%s]\n%s",
-        parsed[[c("error", "statusCode")]],
-        parsed[[c("error", "message")]]
+        "API request failed [%s]\n%s", error[["statusCode"]], error[["message"]]
       )
 
       stop(msg, call. = FALSE)
@@ -75,8 +75,7 @@ finbif_request_token <- function(email, quiet = FALSE) {
     if (!quiet) {
 
       message(
-        "A personal access token for api.laji.fi has been sent to: ",
-        email
+        "A personal access token for api.laji.fi has been sent to: ", email
       )
 
     }