From 53b6f044bcc0f384b37b6d2ea964e7b3c8580648 Mon Sep 17 00:00:00 2001
From: Jeroen Ooms <jeroenooms@gmail.com>
Date: Wed, 9 Oct 2024 14:04:12 +0200
Subject: [PATCH] Improve error message for readRDS

---
 src/library/base/R/serialize.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/library/base/R/serialize.R b/src/library/base/R/serialize.R
index 8446fe49f2b..4d69decaaa8 100644
--- a/src/library/base/R/serialize.R
+++ b/src/library/base/R/serialize.R
@@ -53,7 +53,10 @@ readRDS <- function(file, refhook = NULL)
     } else if (inherits(file, "connection"))
 	con <- if(inherits(file, "url")) gzcon(file) else file
     else stop("bad 'file' argument")
-    .Internal(unserializeFromConn(con, refhook))
+    tryCatch(.Internal(unserializeFromConn(con, refhook)), error = function(err){
+        err$message <- paste(err$message, "in", summary(con)$description)
+        stop(err)
+    })
 }
 
 infoRDS <- function(file)