comparison CAMERA.r @ 12:961089e21ae2 draft default tip

planemo upload commit 1a5357c0e28103a0325b2df858504721f6266049
author lecorguille
date Tue, 09 Oct 2018 06:03:24 -0400
parents 837c6955e4e9
children
comparison
equal deleted inserted replaced
11:837c6955e4e9 12:961089e21ae2
81 rplotspdf = "Rplots.pdf" 81 rplotspdf = "Rplots.pdf"
82 if (!is.null(listArguments[["rplotspdf"]])){ 82 if (!is.null(listArguments[["rplotspdf"]])){
83 rplotspdf = listArguments[["rplotspdf"]]; listArguments[["rplotspdf"]]=NULL 83 rplotspdf = listArguments[["rplotspdf"]]; listArguments[["rplotspdf"]]=NULL
84 } 84 }
85 85
86 dataMatrixOutput = "dataMatrix.tsv"
87 if (!is.null(listArguments[["dataMatrixOutput"]])){
88 dataMatrixOutput = listArguments[["dataMatrixOutput"]]; listArguments[["dataMatrixOutput"]]=NULL
89 }
90
91 variableMetadataOutput = "variableMetadata.tsv" 86 variableMetadataOutput = "variableMetadata.tsv"
92 if (!is.null(listArguments[["variableMetadataOutput"]])){ 87 if (!is.null(listArguments[["variableMetadataOutput"]])){
93 variableMetadataOutput = listArguments[["variableMetadataOutput"]]; listArguments[["variableMetadataOutput"]]=NULL 88 variableMetadataOutput = listArguments[["variableMetadataOutput"]]; listArguments[["variableMetadataOutput"]]=NULL
94 } 89 }
95 90
127 122
128 #change the default display settings 123 #change the default display settings
129 pdf(file=rplotspdf, width=16, height=12) 124 pdf(file=rplotspdf, width=16, height=12)
130 125
131 if (thefunction %in% c("annotatediff")) { 126 if (thefunction %in% c("annotatediff")) {
132 results_list=annotatediff(xset=xset,listArguments=listArguments,variableMetadataOutput=variableMetadataOutput,dataMatrixOutput=dataMatrixOutput) 127 results_list=annotatediff(xset=xset,listArguments=listArguments,variableMetadataOutput=variableMetadataOutput)
133 xa=results_list[["xa"]] 128 xa=results_list[["xa"]]
134 diffrep=results_list[["diffrep"]] 129 diffrep=results_list[["diffrep"]]
135 variableMetadata=results_list[["variableMetadata"]] 130 variableMetadata=results_list[["variableMetadata"]]
136 131
137 cat("\n\n") 132 cat("\n\n")