exact find cols

GreenswayAB · Nov 6, 2020 · 7ca60ad · 7ca60ad
1 parent e28d3d7
commit 7ca60ad
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/organizeBirds.R b/R/organizeBirds.R
@@ -515,7 +515,7 @@ organizeBirds <- function(x,
   }
 
   # Simplify species names to reduce epitets and author names
-  sppCol.df <- findCols(sppCol, x@data)
+  sppCol.df <- findCols(sppCol, x@data, exact = TRUE)
   if (length(sppCol.df) > 0){
     if (!is.null(simplifySppName) && simplifySppName == TRUE){
       x@data[, sppCol.df] <- simplifySpp(x@data, sppCol.df)