GBIF check at genus-level doesn't work

[slambrechts]

The GBIF check at genus-level doesn't seem to work

genus <- as.vector(tax_table(physeq_insekp_annelida)[, "genus"])
genus <- genus[!grepl("_otu|_XX_unclassified|_unclassified|_sp\\.|\\bsp\\..*|swarm\\d+", genus)]
genus <- gsub("_", " ", genus)
genus <- unique(genus)
source(here::here("source/r/check_presence.R"))
gbif_check <- check_presence(genus)
gbif_check %>%
filter(!present) %>%
  kable(caption = "Not present according to GBIF in Europe")

because it returns genera that have been detected in Europe before:

Not present according to GBIF in Europe
present	scientific_name
FALSE	Achaeta
FALSE	Lumbricus
FALSE	Fridericia
FALSE	Cognettia
FALSE	Buchholzia
FALSE	Henlea

The below code at species level does however seem to work:

species <- as.vector(tax_table(physeq_insekp_annelida)[, "species"])
species <- species[!grepl("_otu|_XX_unclassified|_unclassified|_sp\\.|\\bsp\\..*|swarm\\d+", species)]
species <- gsub("_", " ", species)
species <- unique(species)
source(here::here("source/r/check_presence.R"))
gbif_check <- check_presence(species)

[slambrechts]

@silkedebacker kan je hier de meest recente versie van het source/r/check_presence.R script posten?

[silkedebacker]

check_presence.zip