error handling

R/getMonitorList.R

@@ -17,14 +17,31 @@ getMonitorList <- function(legiKey = NULL){
     return(paste0("Invalid API Key: ",legiKey," Register <https://legiscan.com/user/register> Store with `setlegiKey`"))
   }
 
-  req <- httr2::request("https://api.legiscan.com") |>
-    httr2::req_url_query(
-      key = legiKey,
-      op = op,
-      .multi = "explode"
-    ) |>
-    httr2::req_perform() |>
-    httr2::resp_body_json()
+  tryCatch({
+    req <- httr2::request("https://api.legiscan.com") |>
+      httr2::req_url_query(
+        key = legiKey,
+        op = op,
+        .multi = "explode"
+      ) |>
+      httr2::req_perform()
 
-  return(dplyr::bind_rows(req$monitorlist))
+    status <- httr2::resp_status(req)
+    if (status != 200) {
+      stop(sprintf("API request failed with status code: %d", status))
+    }
+
+    response <- httr2::resp_body_json(req)
+
+    if (!is.null(response$status)) {
+      if (response$status != "OK") {
+        stop(sprintf("API returned error: %s", response$alert))
+      }
+    }
+
+    return(dplyr::bind_rows(response$monitorlist))
+
+  }, error = function(e) {
+    stop(sprintf("Error in API request: %s", e$message))
+  })
 }

R/getPerson.R

@@ -5,6 +5,8 @@
 #'
 #' @param PeopleID integer value from legiscan
 #'
+#' @param legiKey 32 character string provided by legiscan
+#'
 #' @export
 getPerson <- function(PeopleID = NULL, legiKey = NULL){
   op <- "getPerson"
@@ -27,4 +29,27 @@ getPerson <- function(PeopleID = NULL, legiKey = NULL){
     httr2::resp_body_json()
   print(req$person$name)
   return(dplyr::bind_rows(req$person))
+
+  tryCatch({
+    req <- httr2::request("https://api.legiscan.com") |>
+      httr2::req_url_query(
+        key = legiKey,
+        op = op,
+        id = PeopleID
+      ) |>
+      httr2::req_perform()
+
+    response <- httr2::resp_body_json(req)
+
+    if (!is.null(response$status)) {
+      if (response$status != "OK") {
+        stop(sprintf("API returned error: %s", response$alert))
+      }
+    }
+
+    return(dplyr::bind_rows(req$person))
+
+  }, error = function(e) {
+    stop(sprintf("Error in API request: %s", e$message))
+  })
 }

R/getSessionPeople.R

@@ -8,7 +8,7 @@
 #' @param legiKey 32 character string provided by legiscan
 #'
 #' @examples
-#' getSessionPeople(session = 2003)
+#' getSessionPeople(session = 2160)
 #'
 #' @export
 getSessionPeople <- function(session = NULL, legiKey = NULL){