R/restore_changed_names.R

In Eliot-RUIZ/eDNAevaluation: Metabarcodes Evaluation

## Requirement: 'mgsub'

# Info: Small function to restore the sequence names misteriously slightly changed during the computations, in order to charge the sequences

restore_changed_names = function(final_sequences, initial_sequences){
  
  replacement = list()
  
  diff = setdiff(final_sequences, initial_sequences)
  
  if(length(diff) != 0){
    
    for(i in 1:length(diff)){
      
      replacement[i] = grep(word(final_sequences[i], 1), initial_sequences, value = T)
      
    }
    
    mgsub(sequence_names, pattern = differences, replacement = unlist(replacement))
    
  }
  
  else final_sequences
  
}