Fix crash() on R-devel

r-lib · Jul 5, 2024 · cc2d888 · cc2d888
1 parent 9d1cfd0
commit cc2d888
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -84,7 +84,12 @@ enumerate <- function(x) {
 ## 7845b83343afa356e4259c054e7c9a910034f170/R/trump.R
 
 crash <- function() {
-  get("attach")( structure(list(), class = "UserDefinedDatabase")  )
+  get("attach")(
+    structure(
+      attr(file(), "conn_id"),
+      class = "UserDefinedDatabase"
+    )
+  )
 }
 
 is_flag <- function(x) {