|
0
|
1 #!/home/lain/R/bin/Rscript
|
|
|
2
|
|
|
3 ZIP <- FALSE
|
|
|
4
|
|
11
|
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/test.rdata", rdata <- new.env())
|
|
0
|
7
|
|
|
8 listOFlistArguments <- rdata$listOFlistArguments
|
|
|
9 diffrep <- rdata$diffrep
|
|
|
10 variableMetadata <- rdata$variableMetadata
|
|
|
11 xa <- rdata$xa
|
|
|
12 if (ZIP) {
|
|
11
|
13 zipfile <- normalizePath("../convert/recreate_rdata_from_galaxy/test.zip", mustWork=TRUE)
|
|
0
|
14 singlefile <- rdata$singlefile
|
|
|
15 } else {
|
|
7
|
16 singles <- list.files("../convert/recreate_rdata_from_galaxy/")
|
|
11
|
17 singles <- singles[singles != "test.rdata"]
|
|
|
18 singles <- singles[singles != "test.rdata.old"]
|
|
0
|
19 singlefile <- list()
|
|
|
20 for (single in singles) {
|
|
7
|
21 singlefile[tools::file_path_sans_ext(single)] <- normalizePath(paste0("../convert/recreate_rdata_from_galaxy/", single))
|
|
0
|
22 }
|
|
|
23 zipfile <- NULL
|
|
|
24 print(singlefile)
|
|
|
25 }
|
|
|
26
|
|
|
27 save(
|
|
|
28 zipfile,
|
|
|
29 listOFlistArguments,
|
|
|
30 diffrep,
|
|
|
31 variableMetadata,
|
|
|
32 xa,
|
|
|
33 singlefile,
|
|
11
|
34 file="../convert/recreate_rdata_from_galaxy/test.rdata"
|
|
0
|
35 ,version=2
|
|
|
36 ) |
