Mercurial > repos > lain > xseekerpreparator

comparison test/recreate_full.R @ 11:f4fc4a0f41e2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
" master branch Updating"
author lain
date Thu, 18 Mar 2021 10:46:01 +0000
parents 5be8a770a11d
children
comparison
equal deleted inserted replaced
10:bb9ebd6365ea 11:f4fc4a0f41e2
1 #!/home/lain/R/bin/Rscript 1 #!/home/lain/R/bin/Rscript
2 2
3 ZIP <- FALSE 3 ZIP <- FALSE
4 4
5 file.copy("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", "../convert/recreate_rdata_from_galaxy/20-01-2021.rdata.old") 5 file.copy("../convert/recreate_rdata_from_galaxy/test.rdata", "../convert/recreate_rdata_from_galaxy/test.rdata.old")
6 load("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", rdata <- new.env()) 6 load("../convert/recreate_rdata_from_galaxy/test.rdata", rdata <- new.env())
7 7
8 listOFlistArguments <- rdata$listOFlistArguments 8 listOFlistArguments <- rdata$listOFlistArguments
9 diffrep <- rdata$diffrep 9 diffrep <- rdata$diffrep
10 variableMetadata <- rdata$variableMetadata 10 variableMetadata <- rdata$variableMetadata
11 xa <- rdata$xa 11 xa <- rdata$xa
12 if (ZIP) { 12 if (ZIP) {
13 zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/20-01-2021.zip", mustWork=TRUE) 13 zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/test.zip", mustWork=TRUE)
14 singlefile <- rdata$singlefile 14 singlefile <- rdata$singlefile
15 } else { 15 } else {
16 singles <- list.files("../convert/recreate_rdata_from_galaxy/") 16 singles <- list.files("../convert/recreate_rdata_from_galaxy/")
17 singles <- singles[singles != "20-01-2021.rdata"] 17 singles <- singles[singles != "test.rdata"]
18 singles <- singles[singles != "20-01-2021.rdata.old"] 18 singles <- singles[singles != "test.rdata.old"]
19 singlefile <- list() 19 singlefile <- list()
20 for (single in singles) { 20 for (single in singles) {
21 singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single)) 21 singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single))
22 } 22 }
23 zipfile <- NULL 23 zipfile <- NULL
29 listOFlistArguments, 29 listOFlistArguments,
30 diffrep, 30 diffrep,
31 variableMetadata, 31 variableMetadata,
32 xa, 32 xa,
33 singlefile, 33 singlefile,
34 file="../convert/recreate_rdata_from_galaxy/20-01-2021.rdata" 34 file="../convert/recreate_rdata_from_galaxy/test.rdata"
35 ,version=2 35 ,version=2
36 ) 36 )