# \donttest{
if(local_NASIS_defined()) {
# query text note data
t <- try(get_text_notes_from_NASIS_db())
# show contents text note data, includes: siteobs, site, pedon, horizon level text notes data.
str(t)
# view text categories for site text notes
if(!inherits(t, 'try-error')) {
table(t$site_text$textcat)
}
}
# }
Run the code above in your browser using DataLab