fix warning msg in EMOTE trim yield

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"])