Obtain all samples within a sites object
# S4 method for class 'sites'
samples(x)data.frame with sample records
{
tryCatch({
dw <- get_downloads(1)
pollen <- samples(dw)
}, error = function(e) {
message("Neotoma server not responding. Try again later.")
})
}