code for ropensci hackathon wolf map

wolfMap.R

install.packages("spocc")
library(spocc)


map3 <- Leaflet$new()
map3$setView(c(39.828127, -98.579404), zoom = 2)


tmp <- occ(query = 'Canis lupus', from = c('gbif','ecoengine','inat'),limit = 100)
testdf <- occ2df(tmp)
### To lat lon matrix
testll <- cbind(testdf$lat,testdf$lon)
### Strip out NA's
testll <- testll[!is.na(testll[,1]),]


map3$addCluster(testll)


#(L1$getPayload('chart'))
map3$save("~/Documents/wolfmap.html",cdn=TRUE)