Add trust also for import_list() ref #406

gesistsa · May 16, 2024 · c7fd347 · c7fd347
1 parent ca019c9
commit c7fd347
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/import_list.R b/R/import_list.R
@@ -84,6 +84,13 @@ import_list <- function(file, setclass = getOption("rio.import.class", "data.fra
         file <- remote_to_local(file)
     }
     if (get_info(file)$format == "rdata") {
+        dots <- list(...)
+        if ("trust" %in% names(dots)) {
+            trust <- dots[["trust"]]
+        } else {
+            trust <- getOption("rio.import.trust", default = NULL)
+        }
+        .check_trust(trust, format = "RData")
         e <- new.env()
         load(file, envir = e)
         return(as.list(e))