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