Check if a species has an occurrence in Belgium using rgbif

check_presence.R

library(dplyr)

check_presence <-
  function(scientificName = c('Vulpes vulpes', 'Pica pica'),
           country = "BE") {
    purrr::map(
      scientificName,
      ~ rgbif::occ_data(
        scientificName = .x,
        country = country,
        limit = 1
      )$data
    ) %>%
      purrr::map_lgl( ~ nrow(.x) >= 1) %>%
      tibble(present = ., scientificName = scientificName)
    
  }