rredlist tutorial

for v0.2.2

rredlist is a IUCN Red List R client. The IUCN Red List is a global list of threatened and endangered species.

Authentication

IUCN requires you to get your own API key, an alphanumeric string that you need to send in every request. Get it at http://apiv3.iucnredlist.org/api/v3/token. Keep this key private. You can pass the key in to each function via the key parameter, but it's better to store the key either as a environment variable (IUCN_REDLIST_KEY) or an R option (iucn_redlist_key) - we suggest using the former option.

High vs. Low level package APIs

High level API

High level functions do the HTTP request and parse data to a data.frame for ease of downstream use. The high level functions have no underscore on the end of the function name, e.g., rl_search

Low level API

The parsing to data.frame in the high level API does take extra time. The low level API only does the HTTP request, and gives back JSON without doing any more parsing. The low level functions DO have an underscore on the end of the function name, e.g., rl_search_

Installation

Stable rredlist version from CRAN

install.packages("rredlist")

Or, the development version from Github

devtools::install_github("ropenscilabs/rredlist")
library("rredlist")

Usage

Citing IUCN API

use the function rl_citation()

rl_citation()
#> [1] "IUCN 2015. IUCN Red List of Threatened Species. Version 2015-4 <www.iucnredlist.org>"

High level API

High level functions do the HTTP request and parse to data to a data.frame for ease of downstream use.

rl_search('Fratercula arctica')
#> $name
#> [1] "Fratercula arctica"
#> 
#> $result
#>    taxonid    scientific_name  kingdom   phylum class           order
#> 1 22694927 Fratercula arctica ANIMALIA CHORDATA  AVES CHARADRIIFORMES
#>    family      genus main_common_name        authority published_year
#> 1 ALCIDAE Fratercula  Atlantic Puffin (Linnaeus, 1758)           2015
#>   category criteria marine_system freshwater_system terrestrial_system
#> 1       VU  A4abcde          TRUE             FALSE               TRUE
#>                 assessor  reviewer
#> 1 BirdLife International Symes, A.

Likely a bit faster is to parse to a list only, and not take the extra data.frame parsing time

rl_search('Fratercula arctica', parse = FALSE)
#> $name
#> [1] "Fratercula arctica"
#> 
#> $result
#> $result[[1]]
#> $result[[1]]$taxonid
#> [1] 22694927
#> 
#> $result[[1]]$scientific_name
#> [1] "Fratercula arctica"
#> 
#> $result[[1]]$kingdom
#> [1] "ANIMALIA"
#> 
#> $result[[1]]$phylum
#> [1] "CHORDATA"
#> 
#> $result[[1]]$class
#> [1] "AVES"
#> 
#> $result[[1]]$order
#> [1] "CHARADRIIFORMES"
#> 
#> $result[[1]]$family
#> [1] "ALCIDAE"
#> 
#> $result[[1]]$genus
#> [1] "Fratercula"
#> 
#> $result[[1]]$main_common_name
#> [1] "Atlantic Puffin"
#> 
#> $result[[1]]$authority
#> [1] "(Linnaeus, 1758)"
#> 
#> $result[[1]]$published_year
#> [1] 2015
#> 
#> $result[[1]]$category
#> [1] "VU"
#> 
#> $result[[1]]$criteria
#> [1] "A4abcde"
#> 
#> $result[[1]]$marine_system
#> [1] TRUE
#> 
#> $result[[1]]$freshwater_system
#> [1] FALSE
#> 
#> $result[[1]]$terrestrial_system
#> [1] TRUE
#> 
#> $result[[1]]$assessor
#> [1] "BirdLife International"
#> 
#> $result[[1]]$reviewer
#> [1] "Symes, A."

Low level API

The parsing to data.frame in the high level API does take extra time. The low level API only does the HTTP request, and gives back JSON without doing any more parsing

rl_search_('Fratercula arctica')
#> [1] "{\"name\":\"Fratercula arctica\",\"result\":[{\"taxonid\":22694927,\"scientific_name\":\"Fratercula arctica\",\"kingdom\":\"ANIMALIA\",\"phylum\":\"CHORDATA\",\"class\":\"AVES\",\"order\":\"CHARADRIIFORMES\",\"family\":\"ALCIDAE\",\"genus\":\"Fratercula\",\"main_common_name\":\"Atlantic Puffin\",\"authority\":\"(Linnaeus, 1758)\",\"published_year\":2015,\"category\":\"VU\",\"criteria\":\"A4abcde\",\"marine_system\":true,\"freshwater_system\":false,\"terrestrial_system\":true,\"assessor\":\"BirdLife International\",\"reviewer\":\"Symes, A.\"}]}"

To consume this JSON, you can use jsonlite

library("jsonlite")
jsonlite::fromJSON(rl_search_('Fratercula arctica'))
#> $name
#> [1] "Fratercula arctica"
#> 
#> $result
#>    taxonid    scientific_name  kingdom   phylum class           order
#> 1 22694927 Fratercula arctica ANIMALIA CHORDATA  AVES CHARADRIIFORMES
#>    family      genus main_common_name        authority published_year
#> 1 ALCIDAE Fratercula  Atlantic Puffin (Linnaeus, 1758)           2015
#>   category criteria marine_system freshwater_system terrestrial_system
#> 1       VU  A4abcde          TRUE             FALSE               TRUE
#>                 assessor  reviewer
#> 1 BirdLife International Symes, A.

Or other tools, e.g., jq via the jqr R client

# devtools::install_github("ropensci/jqr")
library("jqr")
#> Error in library("jqr"): there is no package called 'jqr'
rl_search_('Fratercula arctica') %>% dot()
#> Error in eval(expr, envir, enclos): could not find function "%>%"

Citing

To cite rredlist in publications use:


Scott Chamberlain (2016). rredlist: 'IUCN' Red List Client. R package version 0.1.0. https://github.com/ropenscilabs/rredlist

License and bugs

Back to top

comments powered by Disqus