diff --git a/src/emote-tk.R b/src/emote-tk.R index 6d800f405da7180e5429f9f1a2e6a3b45a9d92e9..40e93a653be0509b1fe72b86fd4c8739d64d74af 100644 --- a/src/emote-tk.R +++ b/src/emote-tk.R @@ -343,6 +343,7 @@ return(stat_tb)} } .EMOTE_trim_yield = function(yield, features, read_parsed){ + read_parsed = read_parsed %>% mutate(readseq = ifelse(readseq=="","empty",readseq)) # Because an empty string print an warning yield = yield %>% narrow(start = str_locate(as.character(yield@sread), pattern = read_parsed$readseq)[,"start"], end = str_locate(as.character(yield@sread), pattern = read_parsed$readseq)[,"end"])