# HG changeset patch # User workflow4metabolomics # Date 1727698948 0 # Node ID 3d63a762954ac5fce18a538df9d426a0fbaef13c # Parent 4b9ab71be05e490013b60fa1c38379edd5e81b10 planemo upload commit a923a432239a1f2ffee2dae1281fe2d8f41bac38 diff -r 4b9ab71be05e -r 3d63a762954a CAMERA_annotateDiffreport.r --- 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") diff -r 4b9ab71be05e -r 3d63a762954a abims_CAMERA_annotateDiffreport.xml --- a/abims_CAMERA_annotateDiffreport.xml Mon Sep 11 22:40:34 2023 +0000 +++ b/abims_CAMERA_annotateDiffreport.xml Mon Sep 30 12:22:28 2024 +0000 @@ -1,4 +1,4 @@ - + CAMERA annotate function. Returns annotation results (isotope peaks, adducts and fragments) and a diffreport if more than one condition.