From 7ca60ad5d834eec20fa5b486649800164eefc190 Mon Sep 17 00:00:00 2001
From: Alejandro Ruete <alejandro@greensway.se>
Date: Fri, 6 Nov 2020 15:42:23 +0100
Subject: [PATCH] exact find cols

---
 R/organizeBirds.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/organizeBirds.R b/R/organizeBirds.R
index f26af4c..cbd09c0 100644
--- 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)