Déplacer le traitement des doublons du data.frame bd

Déplacer la portion de code depuis le script (9) vers le script qui sauvegarde le fichier.

dummy <- table(factor(bd$Site_plot))
# certaines placettes sont en double
# deux fichiers d'inventaire pour les Cévennes contenant des noms en commun -> à supprimer
# placettes des Bauges-REC presente en doublon
doublons <- names(dummy)[dummy > 1]
# enlever les placettes des Cévennes
dummy <- doublons[grep("^Cé", doublons)]
bd <- bd[!is.element(bd$Site_plot, dummy),]
# de dupliquer la placette Bauges
bd <- bd[!duplicated(bd$Site_plot), ]