Mercurial > repos > lecorguille > camera_annotate
diff CAMERA_annotateDiffreport.r @ 26:3d63a762954a draft default tip
planemo upload commit a923a432239a1f2ffee2dae1281fe2d8f41bac38
| author | workflow4metabolomics |
|---|---|
| date | Mon, 30 Sep 2024 12:22:28 +0000 |
| parents | 4b9ab71be05e |
| children |
line wrap: on
line diff
--- a/CAMERA_annotateDiffreport.r Mon Sep 11 22:40:34 2023 +0000 +++ b/CAMERA_annotateDiffreport.r Mon Sep 30 12:22:28 2024 +0000 @@ -35,8 +35,8 @@ cat("\tARGUMENTS PROCESSING INFO\n") # Save arguments to generate a report -if (!exists("listOFargs")) listOFargs <- list() -listOFargs[[format(Sys.time(), "%y%m%d-%H:%M:%S_annotatediff")]] <- args +if (!exists("listOFlistArguments")) listOFlistArguments <- list() +listOFlistArguments[[format(Sys.time(), "%y%m%d-%H:%M:%S_annotatediff")]] <- args # We unzip automatically the chromatograms from the zip files. if (!exists("zipfile")) zipfile <- NULL @@ -73,7 +73,7 @@ cat("\n\n") # saving R data in .Rdata file to save the variables used in the present tool -objects2save <- c("xa", "variableMetadata", "diffrep", "cAnnot", "listOFargs", "zipfile", "singlefile") +objects2save <- c("xa", "variableMetadata", "diffrep", "cAnnot", "listOFlistArguments", "zipfile", "singlefile") save(list = objects2save[objects2save %in% ls()], file = "annotatediff.RData") cat("\n\n")