Obtain all samples within a sites object
# S4 method for class 'sites'
samples(x)data.frame with sample records
if (FALSE) { # \dontrun{
# Get full data download from API and create a long table with samples data.
dw <- get_downloads(1)
pollen <- samples(dw)
} # }