if (FALSE) {
tryCatch({
alex <- get_sites(sitename = "Alex%")
alex2 <- get_sites(24)
c <- c(alex, alex2) #uncleaned
}, error = function(e) {
message("Neotoma server not responding. Try again later.")
})
}
Run the code above in your browser using DataLab