check taxonomy Paracou

R/find.trait/Paracou.R

@@ -307,8 +307,7 @@ data.tree <- read.csv("output/formatted/Paracou/tree.csv", stringsAsFactors = FA
 species.clean2 <- data.frame(sp=data.tree[!duplicated(data.tree[["sp"]]),"sp"],
                              Latin_name=data.tree[!duplicated(data.tree[["sp"]]),"sp.name"],
                              Latin_name_syn=data.tree[!duplicated(data.tree[["sp"]]),"sp.name"],
-                             stringsAsFactors =FALSE)
-
+                             stringsAsFactors=FALSE)
 
 ## extract
 data.traits <- fun.extract.format.sp.traits.NOT.TRY(sp=species.clean2$sp, Latin_name=species.clean2$Latin_name, data=data.species,name.match.traits="Latin_name")