diff --git a/R/utils.R b/R/utils.R index 09e5d96..945bc79 100644 --- 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) {