comparison CAMERA_annotateDiffreport.r @ 46:67f0ef6236f1 draft

planemo upload commit a923a432239a1f2ffee2dae1281fe2d8f41bac38

45:db77f2b67a7f

# ----- ARGUMENTS PROCESSING -----
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

# We unzip automatically the chromatograms from the zip files.
if (!exists("zipfile")) zipfile <- NULL
if (!exists("singlefile")) singlefile <- NULL
rawFilePath <- getRawfilePathFromArguments(singlefile, zipfile, args)

cat("\tXSET OBJECT INFO\n")
print(xa)
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")
save(list = objects2save[objects2save %in% ls()], file = "annotatediff.RData")

cat("\n\n")

cat("\tDONE\n")

46:67f0ef6236f1

# ----- ARGUMENTS PROCESSING -----
cat("\tARGUMENTS PROCESSING INFO\n")

# Save arguments to generate a report
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
if (!exists("singlefile")) singlefile <- NULL
rawFilePath <- getRawfilePathFromArguments(singlefile, zipfile, args)

cat("\tXSET OBJECT INFO\n")
print(xa)
cat("\n\n")

# saving R data in .Rdata file to save the variables used in the present tool
objects2save <- c("xa", "variableMetadata", "diffrep", "cAnnot", "listOFlistArguments", "zipfile", "singlefile")
save(list = objects2save[objects2save %in% ls()], file = "annotatediff.RData")

cat("\n\n")

cat("\tDONE\n")