# HG changeset patch
# User petr-novak
# Date 1623055567 0
# Node ID 5a05925340b06dd7aef5972a00c7cccaeb224103
# Parent  2f1b5d5c5dd5f3f0918804fb4dc7bce694a2d7aa
Uploaded

diff -r 2f1b5d5c5dd5 -r 5a05925340b0 plot_comparative_clustering_summary.R
--- a/plot_comparative_clustering_summary.R	Tue May 18 11:03:57 2021 +0000
+++ b/plot_comparative_clustering_summary.R	Mon Jun 07 08:46:07 2021 +0000
@@ -52,7 +52,7 @@
   header_line = grep(".*Cluster.*Supercluster.*Size", readLines(cluster_annotation))
   annot = read.table(cluster_annotation, sep="\t",header=TRUE,as.is=TRUE, skip = header_line - 1)
   ## validate
-  annot_file_valid = all(colnames(annot)==c("Cluster","Supercluster","Size","Size_adjusted","Automatic_annotation","TAREAN_annotation","Final_annotation"))
+  annot_file_valid = all(c("Cluster","Supercluster","Size","Size_adjusted","Automatic_annotation","TAREAN_annotation","Final_annotation") %in% colnames(annot))
 
 
   if (!annot_file_valid | !counts_file_valid){