annotate test/recreate_full.R @ 18:2c7e7fd1f740 draft

" master branch Updating"
author lain
date Tue, 01 Feb 2022 18:09:11 +0000
parents f4fc4a0f41e2
children
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
11
f4fc4a0f41e2 " master branch Updating"
lain
parents: 7
diff changeset
5 file.copy("../convert/recreate_rdata_from_galaxy/test.rdata", "../convert/recreate_rdata_from_galaxy/test.rdata.old")
f4fc4a0f41e2 " master branch Updating"
lain
parents: 7
diff changeset
6 load("../convert/recreate_rdata_from_galaxy/test.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) {
11
f4fc4a0f41e2 " master branch Updating"
lain
parents: 7
diff changeset
13 zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/test.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/")
11
f4fc4a0f41e2 " master branch Updating"
lain
parents: 7
diff changeset
17 singles <- singles[singles != "test.rdata"]
f4fc4a0f41e2 " master branch Updating"
lain
parents: 7
diff changeset
18 singles <- singles[singles != "test.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,
11
f4fc4a0f41e2 " master branch Updating"
lain
parents: 7
diff changeset
34 file="../convert/recreate_rdata_from_galaxy/test.rdata"
0
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
35 ,version=2
a174cbbb12dd " master branch Updating"
lain
parents:
diff changeset
36 )