# NOT RUN {
if(requireNamespace("curl") &
curl::has_internet() &
require(soilDB)) {
# soil series of interest
s <- c('amador', 'peters', 'pentz', 'inks', 'auburn', 'dunstone', 'argonaut')
# generate hillslope probability table
hillslopeProbability(s)
# generate surface 2D shape probability table
surfaceShapeProbability(s)
}
# }
Run the code above in your browser using DataLab