# HG changeset patch
# User melpetera
# Date 1564504281 14400
# Node ID e1b75c764ffec40864a50a50a1eba2a749187346
# Parent  24d086f27a49bcb40c23178801c312fdf0e17791
Uploaded

diff -r 24d086f27a49 -r e1b75c764ffe CorrTable/Corr.xml
--- a/CorrTable/Corr.xml	Tue Jul 30 12:19:28 2019 -0400
+++ b/CorrTable/Corr.xml	Tue Jul 30 12:31:21 2019 -0400
@@ -210,10 +210,7 @@
 	<outputs>
 		<data name="tabcorr_out" label="CorrTable" format="tabular" />
 		<data name="heatmap_out" label="CT_plot" format="pdf" >
-			<filter>options['plot_choice'] == 'auto'</filter>
-		</data>
-		<data name="heatmap_out" label="CT_plot" format="pdf" >
-			<filter>options['plot_choice'] == 'forced'</filter>
+			<filter>out_section.plot_cond['plot_choice'] == 'auto' or out_section.plot_cond['plot_choice'] == 'forced'</filter>
 		</data>
 	</outputs>
 	
diff -r 24d086f27a49 -r e1b75c764ffe CorrTable/Corr_Script_samples_row.R
--- a/CorrTable/Corr_Script_samples_row.R	Tue Jul 30 12:19:28 2019 -0400
+++ b/CorrTable/Corr_Script_samples_row.R	Tue Jul 30 12:31:21 2019 -0400
@@ -136,7 +136,7 @@
   if((ncol(tab1)==ncol(tab2))&&(sum(tab1!=tab2,na.rm=TRUE)==0)){
     autocor <- TRUE
 	err.msg <- c(err.msg, "\nYou chose the same table for the two dataset inputs. \nTo allow filtering options,",
-	             "we will turn the diagonal to 0 in the correlation matrix during the filtering process.\n\n")
+	             "we will turn the diagonal to 0 in the correlation matrix during the filtering process.\n")
   }else{
     autocor <- FALSE
   }