fix bug EMOTE_parse_reads pc_valid

src/emote-tk.R

@@ -284,7 +284,7 @@ EMOTE_parse_read = function(fastq_file,
   }
   close(fq_streamer)
   # Write parse report
-  stat_tb =  mutate(stat_tb, pc_valid = is_valid/total_read) %>% 
+  stat_tb =  mutate(stat_tb, pc_valid = ifelse(group=="VALID", total_read/sum(stat_tb$total_read),0)) %>% 
     mutate(demux_filename = paste0(out_dir, "/", fq_basename,"_", tolower(group), ".fastq.gz"))
   if(stat_tb[stat_tb$group=="VALID",]$pc_valid == 0){
     warning("There is no valid reads, check your EMOTE_read_features to ensure it is correct (an empty file was created anyway)")