# Check character vector
check_nematode_genus(c("Caenorhabditis", "Wrong"))
# Check data.frame column
df <- data.frame(genus = c("Meloidogyne", "XXX"))
check_nematode_genus(Query.genus = df, Query.col = "genus")
Run the code above in your browser using DataLab