fix archive()

shikokuchuo · Jan 24, 2024 · 796f5b0 · 796f5b0
1 parent a2a9b58
commit 796f5b0
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/archive.R b/R/archive.R
@@ -94,8 +94,10 @@ archive <- function(..., object, file) {
       readArchive(file = ..1)
 
     } else if (dlen == 3L) {
-      if (dots[[2L]] == "") {
-        dots[[3L]] == "" && {
+      d <- dots[[2L]]
+      if (missing(d)) {
+        d <- dots[[3L]]
+        missing(d) && {
           interactive() ||
             stop("Empty arguments for both 'object' and 'file' passed to archive()\nFor read operations specify 'file' only, write operations both 'object' and 'file'", call. = FALSE)
           return(.deconstruct(...))