coords <- read.csv("coords.csv")
library(DT)
library(leaflet)

Occurrences: Table

sp1 <- subset(coords, sp == params$sp)
datatable(sp1)

Occurrences: Map

leaflet(sp1) %>%
  addTiles() %>%
  addMarkers(lng = ~lon, lat = ~lat)