tnrs_match batch function fix

[LunaSare]

Input data in harvey2020scientific_names.txt

adjusted_labels <- read.csv(file = "harvey2020scientific_names.txt", header = FALSE)[,1]
matched_labels <- datelife::tnrs_match(input = adjusted_labels)

Error in if (sum("mus" == tolower(input)) > 0) { : 
  missing value where TRUE/FALSE needed
In addition: There were 45 warnings (use warnings() to see them)

head(matched_labels)
Error in head(matched_labels) : object 'matched_labels' not found