Add 403 error message and use switch

ScotGovAnalysis · Mar 12, 2024 · 8c100e6 · 8c100e6
1 parent d9b4e4e
commit 8c100e6
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/R/objectiveR.R b/R/objectiveR.R
@@ -60,10 +60,11 @@ objectiveR <- function(endpoint,
 #' @return A character vector to include in error message.
 
 error <- function(response) {
-  code <- httr2::resp_status(response)
-  if(code == 401) {
-    "Authorisation failed. Check username / password / token."
-  } else {
-    NULL
-  }
+
+  switch(
+    as.character(httr2::resp_status(response)),
+    "401" = "Authorisation failed. Check username / password / token.",
+    "403" = paste("Operation not permitted.")
+  )
+
 }