annotate maaslin-4450aa4ecc84/src/CreateReadConfigFile.R @ 1:a87d5a5f2776

Uploaded the version running on the prod server
author george-weingart
date Sun, 08 Feb 2015 23:08:38 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
1 #!/usr/bin/env Rscript
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
2 #####################################################################################
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
3 #Copyright (C) <2012>
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
4 #
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
5 #Permission is hereby granted, free of charge, to any person obtaining a copy of
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
6 #this software and associated documentation files (the "Software"), to deal in the
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
7 #Software without restriction, including without limitation the rights to use, copy,
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
8 #modify, merge, publish, distribute, sublicense, and/or sell copies of the Software,
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
9 #and to permit persons to whom the Software is furnished to do so, subject to
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
10 #the following conditions:
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
11 #
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
12 #The above copyright notice and this permission notice shall be included in all copies
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
13 #or substantial portions of the Software.
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
14 #
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
15 #THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
16 #INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
17 #PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
18 #HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
19 #OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
20 #SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
21 #
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
22 # This file is a component of the MaAsLin (Multivariate Associations Using Linear Models),
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
23 # authored by the Huttenhower lab at the Harvard School of Public Health
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
24 # (contact Timothy Tickle, ttickle@hsph.harvard.edu).
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
25 #####################################################################################
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
26
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
27 inlinedocs <- function(
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
28 ##author<< Curtis Huttenhower <chuttenh@hsph.harvard.edu> and Timothy Tickle <ttickle@hsph.harvard.edu>
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
29 ##description<< Allows read config files to be created.
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
30 ) { return( pArgs ) }
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
31
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
32 ### Logging class
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
33 suppressMessages(library( logging, warn.conflicts=FALSE, quietly=TRUE, verbose=FALSE))
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
34 ### Class for commandline argument processing
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
35 suppressMessages(library( optparse, warn.conflicts=FALSE, quietly=TRUE, verbose=FALSE))
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
36
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
37 ### Source the IO.R for the script
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
38 source(file.path("src","lib","IO.R"))
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
39 source(file.path("src","lib","Constants.R"))
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
40
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
41 ### Create command line argument parser
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
42 ### The TSV (tab seperated value (column major, samples are rows) file that will be read in
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
43 ### The column that is the last metadata name
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
44 ### The read.config file that will be used to read in the TSV file
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
45 pArgs <- OptionParser( usage = "%prog [optional] <strOutputRC> <strMatrixName>" )
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
46 # Settings for Read config
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
47 ## row indices
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
48 pArgs <- add_option( pArgs, c("-r", "--rows"), type="character", action="store", dest="strRows", default=NA, metavar="row_indices", help="Rows to read by index starting with 1.")
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
49 ## column indices
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
50 pArgs <- add_option( pArgs, c("-c", "--columns"), type="character", action="store", dest="strColumns", default=NA, metavar="column_indices", help="Columns to read in by index starting with 1.")
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
51 ## delimiter
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
52 pArgs <- add_option( pArgs, c("-d", "--delimiter"), type="character", action="store", dest="charDelimiter", default="\t", metavar="delimiter", help="Delimiter to read the matrix.")
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
53 ## append to current file
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
54 pArgs <- add_option( pArgs, c("-a", "--append"), type="logical", action="store_true", dest="fAppend", default=FALSE, metavar="append", help="Append to existing data. Default no append.")
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
55 ### Parse arguments
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
56 lsArgs <- parse_args( pArgs, positional_arguments = TRUE )
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
57
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
58 #Get positional arguments
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
59 if( !(length( lsArgs$args ) == 2) ) { stop( print_help( pArgs ) ) }
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
60
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
61 ### Write to file the read config script
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
62 funcWriteMatrixToReadConfigFile(strConfigureFileName=lsArgs$args[1], strMatrixName=lsArgs$args[2], strRowIndices=lsArgs$options$strRows,
a87d5a5f2776 Uploaded the version running on the prod server
george-weingart
parents:
diff changeset
63 strColIndices=lsArgs$options$strColumns,acharDelimiter=lsArgs$options$charDelimiter,fAppend=lsArgs$options$fAppend)