changeset 20:5a05925340b0 draft

Uploaded
author petr-novak
date Mon, 07 Jun 2021 08:46:07 +0000
parents 2f1b5d5c5dd5
children f4ed6a65a2ff
files plot_comparative_clustering_summary.R
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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){