comparison IDchoice/IDchoice_wrap.R @ 1:bb19b1d15732 draft default tip

Uploaded

0:b7a6a88f518a

#                                                                                              #
# Author: Melanie PETERA                                                                       #
# User: Galaxy                                                                                 #
# Original data: used with IDchoice_script.R                                                   #
# Starting date: 01-06-2017                                                                    #
# V-1: Firt version of wrapper                                                                 #
#                                                                                              #
#                                                                                              #
# Input files: dataMatrix ; Metadata file                                                      #
# Output files: dataMatrix ; Metadata file                                                     #
#                                                                                              #

if(length(args) < 7){ stop("NOT enough argument !!!") }


id.choice(args$dataMatrix_in, args$Metadata_in, args$metatype, args$col_name, args$makeunique, args$DM_out, args$meta_out)


#delete the parameters to avoid the passage to the next tool in .RData image
rm(args)

1:bb19b1d15732

#                                                                                              #
# Author: Melanie PETERA                                                                       #
# User: Galaxy                                                                                 #
# Original data: used with IDchoice_script.R                                                   #
# Starting date: 01-06-2017                                                                    #
# V-1: First version of wrapper                                                                #
# V-2: Additional information in stdout                                                        #
#                                                                                              #
#                                                                                              #
# Input files: dataMatrix ; Metadata file                                                      #
# Output files: dataMatrix ; Metadata file                                                     #
#                                                                                              #

if(length(args) < 7){ stop("NOT enough argument !!!") }


cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"),
'\n\n--------------------------------------------------------------------', 
'\nParameters used in "ID choice":\n\n')
print(args)
cat('--------------------------------------------------------------------\n\n')


id.choice(args$dataMatrix_in, args$Metadata_in, args$metatype, args$col_name, args$makeunique, args$DM_out, args$meta_out)


cat('\n--------------------------------------------------------------------',
'\nInformation about R (version, Operating System, attached or loaded packages):\n\n')
sessionInfo()
cat('--------------------------------------------------------------------\n',
'\nJob ending time:\n',format(Sys.time(), "%a %d %b %Y %X"))


#delete the parameters to avoid the passage to the next tool in .RData image
rm(args)