tabulEIA Automatize the process of building species occurrence list for EIA reports. Listed species are arearranged with their conservation and taxonomic status.
Package website.
This software is preliminary or provisional. No warranty, expressed or implied, is made by the maintainer. Software releases constitute no warranty. The software is provided as is on the condition that the maintainer shall not be held liable or responsible for any damages resulting from the authorized or unauthorized use of the software.
tabulEIA provides an exhaustive list of species occurring at a given area of interest. It does so by retrieving pre-compiled data from many sources: fieldwork, eBird, iNaturalist, Flora-on, Atlases, Regional databases, EU reports. Lists are provided with taxonomic and conservation status and will be ready to be used in EIA report. Data being retrieved from:
- Field inventories
- Atlases (mammals, birds, Amphibians, Reptiles, Orchids)
- Flora-on database
- eBird (5 minute min. census)
- iNaturalist (research grade records)
- Natura 2000 Report
You can install the released version of tabulEIA from Github with:
library(devtools)
install_github("pecard/tabuleia")
You are welcome to contribute to the package development and improvement by filling an issue at the package web page.
Please note that the tabulEIA project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.
Run a basic example:
library(tabulEIA)
library(tidyverse)
library(sf)
library(geotidy)
# Copy geometry directly from QGIS wkt
pol <- st_geomfromtext('Polygon ((-8.2522 37.8960, -8.2513 37.8960, -8.2513 37.8951,
-8.2522 37.8951, -8.2522 37.8960))')
pol <- st_as_sf(pol) %>% st_set_crs(4326)
utm_all = utm_id(grid = utm10k, roi = pol, buff = NULL, contiguity = 'queen')
# Flora
# inventories from field work
dados_campo <- read.delim('~path_to_my_field_data/fielddata.txt')
tflora <- tabulEIA::tabulFlora(fielddata = dados_campo, utm_ae = utm_all$ae, utm_q = utm_all$contig,
biblio = 'all')
# Avifauna
tave = tabulEIA::tabulAve(fielddata = NULL, utm_ae = utm_ae, utm_q = utm_contig, atlas = atlas_aves, ebird = ebird)