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

" master branch Updating"
author lain
date Thu, 21 Jan 2021 12:55:33 +0000
parents a174cbbb12dd
children f4fc4a0f41e2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
1 #!/home/lain/R/bin/Rscript
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
2
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
3 ZIP <- FALSE
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
4
7
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
5 file.copy("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", "../convert/recreate_rdata_from_galaxy/20-01-2021.rdata.old")
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
6 load("../convert/recreate_rdata_from_galaxy/20-01-2021.rdata", rdata <- new.env())
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
7
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
8 listOFlistArguments <- rdata$listOFlistArguments
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
9 diffrep <- rdata$diffrep
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
10 variableMetadata <- rdata$variableMetadata
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
11 xa <- rdata$xa
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
12 if (ZIP) {
7
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
13 zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/20-01-2021.zip", mustWork=TRUE)
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
14 singlefile <- rdata$singlefile
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
15 } else {
7
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
16 singles <- list.files("../convert/recreate_rdata_from_galaxy/")
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
17 singles <- singles[singles != "20-01-2021.rdata"]
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
18 singles <- singles[singles != "20-01-2021.rdata.old"]
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
19 singlefile <- list()
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
20 for (single in singles) {
7
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
21 singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single))
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
22 }
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
23 zipfile <- NULL
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
24 print(singlefile)
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
25 }
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
26
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
27 save(
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
28 zipfile,
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
29 listOFlistArguments,
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
30 diffrep,
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
31 variableMetadata,
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
32 xa,
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
33 singlefile,
7
5be8a770a11d " master branch Updating"
lain
parents: 0
diff changeset
34 file="../convert/recreate_rdata_from_galaxy/20-01-2021.rdata"
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
35 ,version=2
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
36 )