# \donttest{
tryCatch({
somesites <- get_sites(datasettype = "diatom") %>%
get_downloads()
diatomtaxa <- taxa(somesites)
}, error = function(e) {
message("Neotoma server not responding. Try again later.")
})
# }
Run the code above in your browser using DataLab