# \donttest{
# Note that by default the limit for queries is 25 records:
tryCatch({
modernSites <- get_sites(keyword = "Modern")
plotLeaflet(modernSites)
}, error = function(e) {
message("Neotoma server not responding. Try again later.")
})
# }
Run the code above in your browser using DataLab