splister
xxx
devtools::install_github("sckott/splister")
library('splister')
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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.