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