# \donttest{
tryCatch({
kesang <- get_sites(sitename = "Kesang cave") %>%
get_datasets() %>%
filter(datasettype == "pollen") %>%
get_speleothems()
sp <- speleothemdetails(kesang)
}, error = function(e) {
message("Neotoma server not responding. Try again later.")
})
# }
Run the code above in your browser using DataLab