# NOT RUN {
# 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