library(rgbif)
library(urltools)
sp<-c("Didelphis marsupialis","Didelphis albiventris","Choloepus didactylus","Bradypus tridactylus",
      "Tamandua tetradactyla","Monodelphis domestica","Metachirus nudicaudatus","Marmosops incanus",
      "Gracilinanus agilis","Dasypus novemcinctus","Cerdocyon thous","Speothos venaticus",
      "Cebus apella","Chiropotes satanas","Saguinus geoffroyi","Aotus trivirgatus",
      "Carollia perspicillata")

GBIF <- occ_data(scientificName = "Didelphis marsupialis")
sapply(GBIF, names)
coords <- as.data.frame(na.omit(GBIF$data[ , c("name","decimalLongitude","decimalLatitude","gbifID")]))

write.csv(coords,file="Didelphis marsupialis.csv",row.names = F)