# NOT RUN {
# }
# NOT RUN {
if(requireNamespace("curl") &
curl::has_internet() &
require(aqp) &
require(soilDB)) {
# soils of interest
s.list <- c('musick', 'cecil', 'drummer', 'amador', 'pentz', 'reiff',
'san joaquin','montpellier','grangeville','pollasky','ramona')
# fetch and convert data into an SPC
s <- fetchOSD(s.list, extended=TRUE)
res <- vizHillslopePosition(s$hillpos)
print(res$fig)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab