# query depends on some pedon data, queried against the national database
# note that you must setup this connection ahead of time
f <- fetchNASIS()
# plot only those profiles with densic contact
plot(f[which(f$densic.contact), ], name='hzname')
# get basic component data from local NASIS, after performing a
# DMU-* query against the national database
fc <- fetchNASIS_component_data()
Run the code above in your browser using DataLab