Fixing setwd v0.1

jesusmmp · Mar 18, 2021 · 94a4362 · 94a4362
1 parent c8cb59a
commit 94a4362
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/exams2sakai.R b/R/exams2sakai.R
@@ -334,11 +334,15 @@ exams2sakai <- function(file, n = 1L, nsamp = NULL, dir = ".",
   ## compress
   if(zip) {
     owd <- getwd()
+    on.exit(setwd(owd), add = TRUE)
     setwd(test_dir)
     utils::zip(zipfile = zipname <- paste(name, "zip", sep = "."), files = list.files(test_dir))
-    setwd(owd)
   } else zipname <- list.files(test_dir)
 
+  if(dir == ".") {
+    dir = owd
+  }
+
   ## copy the final .zip file
   file.copy(file.path(test_dir, zipname), dir, recursive = TRUE)