R/utils-success_check.R

In fixerapi: An R Client for the "Fixer.io" Currency API

# success check utility
success_check <- function(result) {
  if (!result$success) {
    stop(paste(
      "Error code:", result$error$code, "\n",
      "Error type:", result$error$type, "\n",
      "Error message:", result$error$info
    ), call. = FALSE)
  }

  result
}