R/change_infos.R

In Eliot-RUIZ/eDNAevaluation: Metabarcodes Evaluation

# Info: Small function to add known ecological informations according to the taxid of one or multiple groups.

change_infos = function(id, replacement, var = "ENVIRONMENT", id_col = "REQUIRED_ID", data, search_data){
  
  comp_data = search_data[which(search_data[[id_col]] == id), ]
  
  pos = which(!is.na(match(data$SPECIES, comp_data$SPECIES)))
  
  data[var] = replace(data[var][[1]], pos, replacement)
  
  data
  
}