library(plyr)
splist <- c('Accipiter erythronemius', 'Junco hyemalis', 'Aix sponsa')
keys <- sapply(splist, function(x) name_backbone(name=x, kingdom='plants')$speciesKey,
USE.NAMES=FALSE)
out <- occ_search(keys, hasCoordinate=TRUE, limit=50, return="data")
dat <- ldply(out)
datgeojson <- stylegeojson(input=dat, var="name", color=c("#976AAE","#6B944D","#BD5945"),
size=c("small","medium","large"))
write.csv(datgeojson, "~/my.csv")
togeojson(input="~/my.csv", method="web", outfilename="my")
gist("~/my.geojson", description = "Occurrences of three bird species mapped")
Run the code above in your browser using DataLab