coords <- read.csv("coords.csv")
library(DT) library(leaflet)
sp1 <- subset(coords, sp == params$sp) datatable(sp1)
leaflet(sp1) %>% addTiles() %>% addMarkers(lng = ~lon, lat = ~lat)