# Get data and save map data
splist <- c('Accipiter erythronemius', 'Junco hyemalis', 'Aix sponsa')
out <- occ_search(scientificName = splist, hasCoordinate = TRUE, limit = 50)
library("plyr")
dat <- ldply(out, "[[", "data")
names(dat)[names(dat) %in% c("decimalLatitude","decimalLongitude")] <- c("latitude","longitude")
dat2 <- stylegeojson(input=dat, var="name", color=c("#976AAE","#6B944D","#BD5945"),
size=c("small","medium","large"))
head(dat2)
Run the code above in your browser using DataLab