Mercurial > repos > melpetera > tablemerge
comparison TableMerge/tablemerge_wrap.R @ 1:e44c5246247a draft default tip
Uploaded
author | melpetera |
---|---|
date | Thu, 14 Nov 2019 12:33:41 -0500 |
parents | 902ab790fb7b |
children |
comparison
equal
deleted
inserted
replaced
0:902ab790fb7b | 1:e44c5246247a |
---|---|
5 # # | 5 # # |
6 # Author: Melanie PETERA # | 6 # Author: Melanie PETERA # |
7 # User: Galaxy # | 7 # User: Galaxy # |
8 # Original data: used with tablemerge_script.R # | 8 # Original data: used with tablemerge_script.R # |
9 # Starting date: 11-05-2015 # | 9 # Starting date: 11-05-2015 # |
10 # V-1: Firt version of wrapper # | 10 # V-1: First version of wrapper # |
11 # V-2: Addition of prints about input parameters and job info # | |
11 # # | 12 # # |
12 # # | 13 # # |
13 # Input files: dataMatrix ; Metadata file # | 14 # Input files: dataMatrix ; Metadata file # |
14 # Output files: dataMatrix ; Metadata file # | 15 # Output files: dataMatrix ; Metadata file # |
15 # # | 16 # # |
29 | 30 |
30 | 31 |
31 if(length(args) < 4){ stop("NOT enough argument !!!") } | 32 if(length(args) < 4){ stop("NOT enough argument !!!") } |
32 | 33 |
33 | 34 |
35 cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"), | |
36 '\n\n--------------------------------------------------------------------', | |
37 '\nParameters used in "Table Merge":\n\n') | |
38 print(args) | |
39 cat('--------------------------------------------------------------------\n\n') | |
40 | |
41 | |
34 tab.merge(args$dataMatrix_in, args$Metadata_in, args$metatype, args$combined_out) | 42 tab.merge(args$dataMatrix_in, args$Metadata_in, args$metatype, args$combined_out) |
43 | |
44 | |
45 cat('\n--------------------------------------------------------------------', | |
46 '\nInformation about R (version, Operating System, attached or loaded packages):\n\n') | |
47 sessionInfo() | |
48 cat('--------------------------------------------------------------------\n', | |
49 '\nJob ending time:\n',format(Sys.time(), "%a %d %b %Y %X")) | |
35 | 50 |
36 | 51 |
37 #delete the parameters to avoid the passage to the next tool in .RData image | 52 #delete the parameters to avoid the passage to the next tool in .RData image |
38 rm(args) | 53 rm(args) |