diff --git a/src/emote-tk.R b/src/emote-tk.R index 40e93a653be0509b1fe72b86fd4c8739d64d74af..0701a199b3ba811d69d61fd92a116678ce1d44c6 100644 --- a/src/emote-tk.R +++ b/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)")