--- a/test/recreate_full.R	Wed Jan 20 17:47:51 2021 +0000
+++ b/test/recreate_full.R	Thu Jan 21 12:55:33 2021 +0000
@@ -2,22 +2,23 @@
 
 ZIP <- FALSE
 
-file.copy("../convert/yann.rdata", "../convert/yann.rdata.old")
-load("../convert/yann.rdata", rdata <- new.env())
+file.copy("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", "../convert/recreate_rdata_from_galaxy/20-01-2021.rdata.old")
+load("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", rdata <- new.env())
 
 listOFlistArguments <- rdata$listOFlistArguments
 diffrep <- rdata$diffrep
 variableMetadata <- rdata$variableMetadata
 xa <- rdata$xa
 if (ZIP) {
-	zipfile <- normalizePath("../convert/yann.zip", mustWork=TRUE)
+	zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/20-01-2021.zip", mustWork=TRUE)
 	singlefile <- rdata$singlefile
 } else {
-	singles <- list.files("../convert/")
-	singles <- singles[singles != "yann.rdata"]
+	singles <- list.files("../convert/recreate_rdata_from_galaxy/")
+	singles <- singles[singles != "20-01-2021.rdata"]
+    singles <- singles[singles != "20-01-2021.rdata.old"]
 	singlefile <- list()
 	for (single in singles) {
-		singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/", single))
+		singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single))
 	}
 	zipfile <- NULL
 	print(singlefile)
@@ -30,6 +31,6 @@
     variableMetadata,
     xa,
     singlefile,
-    file="../convert/yann.rdata"
+    file="../convert/recreate_rdata_from_galaxy/20-01-2021.rdata"
     ,version=2
 )
\ No newline at end of file