apache
diff --git a/‎r/adbcdrivermanager/R/error.R‎
Lines changed: 1 addition & 0 deletions b/‎r/adbcdrivermanager/R/error.R‎
Lines changed: 1 addition & 0 deletions
@@ -58,6 +58,7 @@ stop_for_error <- function(status, error) {
       error <- list()
     }
 
+    error$status <- status
     error$status_code_message <- .Call(RAdbcStatusCodeMessage, status)
     if (!is.null(error$message)) {
       msg <- paste(error$status_code_message, error$message, sep=": ")
Original file line number	Diff line number	Diff line change
`@@ -58,6 +58,7 @@ stop_for_error <- function(status, error) {`
`58`	`58`	`error <- list()`
`59`	`59`	`}`
`60`	`60`
	`61`	`+ error$status <- status`
`61`	`62`	`error$status_code_message <- .Call(RAdbcStatusCodeMessage, status)`
`62`	`63`	`if (!is.null(error$message)) {`
`63`	`64`	`msg <- paste(error$status_code_message, error$message, sep=": ")`