# NOT RUN {
# }
# NOT RUN {
if(requireNamespace("curl") &
curl::has_internet() &
require(aqp)) {
# find all series that list Pardee as a geographically associated soil.
s <- OSDquery(geog_assoc_soils = 'pardee')
# get data for these series
x <- fetchOSD(s$series, extended = TRUE, colorState = 'dry')
# simple figure
par(mar=c(0,0,1,1))
plot(x$SPC)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab