splister xxx

Installation

devtools::install_github("ropenscilabs/splister")
library('splister')

Examples

x <- read.csv(system.file("examples", "iucn_dat.csv", package = "splister"), stringsAsFactors = FALSE)[,-1]
y <- system.file("examples", "worms_sample.csv", package = "splister")
spp <- x$sciname[1:20000L]
res <- matcher(spplist = spp, ref = y, against = "scientificName")
df <- data.frame(original = spp, taxon = unlist(res),
   match = sapply(res, attr, "match"))
df[df$match == "replace", ]

#>                      original              taxon   match
#> 2080           Alburnus mento Alburnus mentoides replace
#> 7080           Bahaba chaptis Alburnus mentoides replace
#> 12080           Caridina evae Alburnus mentoides replace
#> 17080 Copadichromis inornatus Alburnus mentoides replace

Meta