diff test/recreate_full.R @ 11:f4fc4a0f41e2 draft

" master branch Updating"

--- a/test/recreate_full.R	Thu Jan 21 15:00:39 2021 +0000
+++ b/test/recreate_full.R	Thu Mar 18 10:46:01 2021 +0000
@@ -2,20 +2,20 @@
 
 ZIP <- FALSE
 
-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())
+file.copy("../convert/recreate_rdata_from_galaxy/test.rdata", "../convert/recreate_rdata_from_galaxy/test.rdata.old")
+load("../convert/recreate_rdata_from_galaxy/test.rdata", rdata <- new.env())
 
 listOFlistArguments <- rdata$listOFlistArguments
 diffrep <- rdata$diffrep
 variableMetadata <- rdata$variableMetadata
 xa <- rdata$xa
 if (ZIP) {
-	zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/20-01-2021.zip", mustWork=TRUE)
+	zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/test.zip", mustWork=TRUE)
 	singlefile <- rdata$singlefile
 } else {
 	singles <- list.files("../convert/recreate_rdata_from_galaxy/")
-	singles <- singles[singles != "20-01-2021.rdata"]
-    singles <- singles[singles != "20-01-2021.rdata.old"]
+	singles <- singles[singles != "test.rdata"]
+    singles <- singles[singles != "test.rdata.old"]
 	singlefile <- list()
 	for (single in singles) {
 		singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single))
@@ -31,6 +31,6 @@
     variableMetadata,
     xa,
     singlefile,
-    file="../convert/recreate_rdata_from_galaxy/20-01-2021.rdata"
+    file="../convert/recreate_rdata_from_galaxy/test.rdata"
     ,version=2
 )
\ No newline at end of file