Mercurial > repos > lain > xseekerpreparator

comparison test/recreate_full.R @ 7:5be8a770a11d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
" master branch Updating"
author lain
date Thu, 21 Jan 2021 12:55:33 +0000
parents a174cbbb12dd
children f4fc4a0f41e2
comparison
equal deleted inserted replaced
6:207e36770d18 7:5be8a770a11d
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/yann.rdata", "../convert/yann.rdata.old") 5 file.copy("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", "../convert/recreate_rdata_from_galaxy/20-01-2021.rdata.old")
6 load("../convert/yann.rdata", rdata <- new.env()) 6 load("../convert/recreate_rdata_from_galaxy/20-01-2021.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/yann.zip", mustWork=TRUE) 13 zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/20-01-2021.zip", mustWork=TRUE)
14 singlefile <- rdata$singlefile 14 singlefile <- rdata$singlefile
15 } else { 15 } else {
16 singles <- list.files("../convert/") 16 singles <- list.files("../convert/recreate_rdata_from_galaxy/")
17 singles <- singles[singles != "yann.rdata"] 17 singles <- singles[singles != "20-01-2021.rdata"]
18 singles <- singles[singles != "20-01-2021.rdata.old"]
18 singlefile <- list() 19 singlefile <- list()
19 for (single in singles) { 20 for (single in singles) {
20 singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/", single)) 21 singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single))
21 } 22 }
22 zipfile <- NULL 23 zipfile <- NULL
23 print(singlefile) 24 print(singlefile)
24 } 25 }
25 26
28 listOFlistArguments, 29 listOFlistArguments,
29 diffrep, 30 diffrep,
30 variableMetadata, 31 variableMetadata,
31 xa, 32 xa,
32 singlefile, 33 singlefile,
33 file="../convert/yann.rdata" 34 file="../convert/recreate_rdata_from_galaxy/20-01-2021.rdata"
34 ,version=2 35 ,version=2
35 ) 36 )